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COMPUTER  ADAPTIVE  TESTING  (CAT)  PROJECT 


Navy  Personal  Research  and  Development  Center 
San  Diego,  California 

VERSION  (  1.03  1  Feb  28.  1983 


Textfile  :  CATPROJECT. TEXT 
Codefile  :  CATPROJECT. CODE 


Volume  :  TFILES 
Volume  :  CATDATA 


Execution  of  this  program  al lous  access  to  the  major  subprograms  of 
the  Computer  Adaptive  Testing  System.  These  are  : 


1.  AOMIN 

2.  P.MGR 

3.  T.MGR 

4.  E.MGR 

5.  S.MGR 
S.  G.MGR 
7.  O.MGR 


(test  administration) 

(test  parameters  configuration) 

(test  questions  database  management) 
(examinee  database  management) 
(strategy  database  management) 
(graphics  database  management) 
(system  diagnostic  program) 


The  user  can  execute  any  of  the  above  subprograms  or  return  to  the 
Pascal  operating  system  from  this  program. here.  Upon  completion  of  any 
of  the  above  programs,  control  is  restored  to  this  program  by  use  of  the 
function  SETCHAIN.  This  allous  access  to  all  major  codefiles  of  the  CAT 
Project  with  one  main  driver  program. 


PROGRAM  CATPROJECT; 
USES  CHAINSTUFF; 


CONST  BELL  -  7j 

VERSION  -  *  11.031  *j 


TYPE  SETOFCHAR  -  SET  OF  CHAR; 


VAR  COMMAND. 

OUTPUT  :  CHAR; 


(*  clear  the  screen  *) 
PROCEDURE  PAGE (DUMMY  :  CHAR); 
BEGIN 

URITE  (CHR(28) ) ; 

GOTOXY  (0,0) ; 

END;  (*  page  *) 


(«***  rings  the  bell 
PROCEDURE  SOU AUK; 
BEGIN 

URI TE (CHR  (BELL) ) ; 
END;  (*  squawk  «) 


(*  read  an  acceptable  character  from  the  keyboard  *) 
FUNCTION  GETCHARfOKSET  :  SETOFCHAR; 

FLUSHOUEUE, ECHO, BEEP  t  BOOLEAN)  :  CHAR; 
VAR  MASK  s  PACKED  ARRAY [0..01  OF  CHAR; 

BEGIN 

IF  FLUSHOUEUE  THEN  UNITCLEARI2) ;  (*  flush  buffer  *) 
REPEAT 

UNI TRE AD(2, MASK, 1); 


PREVIOUS  PAGE 
IS  BLANK 


m 
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IF  BEEP  AND  NOT  (MASK  [0]  IN  OKSET)  THEN  SOU  AUK; 

UNTIL  MASK  103  IN  OKSET; 

IF  ECHO  AND  (MASK  103  IN  ICHR(32>..CHR(12S>3>  THEN 
URITE(MASK 103 ) : 

GETCHAR  MASK  103 : 

END;  («  getchar  «) 

(a - - - - *) 

(a  displays  which  prograa  you  can  branch  to  •) 

PROCEDURE  MENU: 

VAR  X.Y  s  INTEGER; 

BEGIN 

PAGE (OUTPUT); 

X  16; 

Y  8; 

GOTOXY(21,0); 

URITECCAT  PROJECT  MENU  VERSION); 

GOTOXY (0,4) ; 

URITECSelect  one  of  the  following  prograas  by  entering  ite  number.’); 
GOTOXY (X.Y); 

URITECl.  QUIT*); 

GOTOXY (X.Y+l); 

URITEC2.  TEST  ADMINISTRATION’ ); 

GOTOXY (X.Y+2); 

URITEC3.  CONFIGURE  TEST  PARAMETERS’); 

GOTOXY (X.Y+3); 

URITEC4.  TEST  DATABASE  MANAGEMENT’); 

GOTOXY (X.Y+4); 

URITEC5.  EXAMINEE  DATABASE  MANAGEMENT’); 

GOTOXY (X.Y+S); 

UR1TEC6.  STRATEGY  OATABASE  MANAGEMENT ’ ) ; 

GOTOXY (X.Y+6); 

URITEC7.  GRAPHICS  EOtTOR* ) ; 

GOTOXY (X.Y+7); 

URITEC8.  CAT  SYSTEM  DIAGNOSTICS’); 

GOTOXY  (X.Y-f  10); 

URITECEnter  Choice  M  i  ’); 

END;  («  aenu  *) 


(« .  *> 

(aaaa  aain  prograa  aaaa) 

BEGIN 

(a  display  options  a) 

MENU; 

(a  get  selection  a) 

COMMAND  GETCHAR(  Cl’ .. ’8’3  .TRUE, TRUE,  TRUE) ; 

(a  eat  the  prograa  to  branch  to  a) 

CASE  COMMAND  OF 

T  :  ; 

•2’  :  SETCHA1N('CATDATA:ADM1N’ ) ; 

•3*  t  SETCHAIN(’CATDATA:P.MGR’ ) ; 

•4’  i  SETCHAINCCATDATAsT.MGfl’); 

•5’  :  SETCHAINCCATDATAjE.MGR’); 

•6’  :  SETCHAINCCATDATAtS.MGR’); 

•7’  ;  SETCHAIN(’CATDATA;G.MGR’); 

•8’  ;  SETCHAIN(’CATOATA:D.MGR’ ) ; 

END: 


IF  COMMAND  <>  ’1*  THEN 
BEGIN  (ala) 

PAGE (OUTPUT); 

GOTOXY (15. 10); 

UR  I  TEC  Loading  ’); 

CASE  COMMAND  OF 

’2’  :  URITECTeat  Administration  Prograa.’); 
*3’  :  URITECTest  Configuration  Prograa. ’) ; 
*4*  :  URITECTest  Manager  Program.’); 
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’5’  :  UR  I  TEC  Examinee  flanager  Program.’); 

’B’  :  URITECStrategy  Manager  Program. ’); 

’7’  :  URI T£ (’Graphics  Manager  Program.’): 

’8’  :  URITEPCat  Systea  Diagnostic  Prograa’); 
EfflD;  (*  cases  *) 

END;  («1«) 

ENO.  (*  catproject  *) 


ADMIN. DIR: 

Subdirectory  -  Test  Administration  Textfiles 


|fj [w"w  r*. .» i'f 

!-V/ 


■VO 

:s*: 

f#a 
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(atS++a) 

(eaaseasaasessaaaaaassaaaaaaeaasaeaaaessaaa*  ******  aasaaaa  <M«»>»mrm»»>»nt«) 


(*  *) 

(a  Text f i le  :  AOMIN. 0IR/ADH1N. TEXT  Volume  :  TFILES  •) 

(a  Codefile  :  AOMIN. CODE  Volume  :  CATDATA  *) 

(a  a) 

(asseaaseaaassaae  ******  raseeaassssaasreaeeas  saaaaaaa  ssm'oatsaaeaaaaasaaaasaaaes) 
(a  File  Last  Modified  >  October  7  1983  NPRDC  a) 

(eesaaassaasssaaaasaaasasasasa-aaaaaaaaasaesaaataaaaasssaaaeeaaasssesessaeaaeesa) 

(*  VERSION  1 .05  a) 

(aessa.assaasaasaseseaa’asaaesaaseaseaasaaaesas'eaaasaaseesaeeaaaeeeestssesssstaaa) 

(«  1.  256  X  of  memory  required.  a) 

(*  2.  Graphics  questions  capability  a) 

(s  3.  Thunder  clock  required.  a) 

(*  «) 

(*  Description  :  «) 

(a  This  program  gives  examinees  a  prescribed  set  of  subtests.  It  begins  a) 
(«  with  an  introduction  to  the  computer,  then  logs  in  an  examinee,  and  gives  a) 

(a  him  the  subtests.  The  main  modules  of  the  program  are  :  *) 

(*  1.  Proctor  routines.  •) 

(a  2.  General  instructions  (computer  familiarization)  a) 

(*  3.  Login  procedures.  «) 

(a  4.  Examinee  pretest  initialization.  a) 

(*  5.  Loading  subtest  directory  and  appropriate  strategy  data  structure  *) 

(a  (if  any) .  *) 

(*  6.  Administering  a  question.  at) 

(a  7.  Updating  the  examinee  ability  level.  a) 

(«  8.  Feedback  routines.  «) 

(a  9.  Examinee  backup  to  compressed  file  for  data  analysis.  ») 

(a  e) 

(«  This  program  basically  controls  the  flow  of  execution  through  these  a) 

(a  modules.  All  communication  between  modules  occurs  with  global  variables  a) 

(a  in  the  program.  Three  major  loops  exist  :  a) 

(a  (1)  Giving  continuous  sessions.  a) 

(a  (2)  Giving  a  sequence  of  subtests.  *) 

(a  (3)  Giving  a  sequence  of  questions.  a) 

(a  Control  through  these  loops  and  modules  can  be  altered  by  commands  from  a) 
(a  the  proctor  routines.  a) 

(a  a) 

(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa) 


PROGRAM  TESTAOMINISTRATION, 

USES  PGRAF, 

REALMOOES. 

TRANSCEND,  (a  needed  for  real  functions  a) 

APPLESTUFF,  (a  needed  for  randomizer  a) 

CHA1NSTUFF;  (a  allows  return  to  project  driver  a) 

(a  const, type, &  var  declarations  a) 

(at I  /TFILES/ADMIN. DIR/A. DEC. TEXT  a) 

(a  proctor  routines  a) 

(at I  /TFILES/ADMIN. OIR/A.PROCT. TEXT  a) 

(a  computer  familiarization  a) 

(atl  /TFILES/AOMIN.OIR/A.CF. TEXT  a) 

(a  general  instructions  part  2  a) 

(atl  /TFILES/ADMIN. DIR/A.GI. TEXT  a) 

(a  short  version  -  doesn't  get  personal  data  a) 

(atl  /TFILES/ADMIN. DIR/A. LOGIN. TEXT  a) 

(a  initialize  examinee  test  rscores  a) 

(all  /TF ILES/ADMIN. DIR/A. INI TE. TEXT  a) 

(a  subtest  load  a) 

(atl  /TFILES/ADMIN. DIR/A. LOADT. TEXT  a) 

(a  feedback  routines  a) 


’  *  ■*  m  *  m  *  x  *  LV  M  ^  ^  *  m  "  — »  M  *  , 


r:>v\ 

.  »  w  *  -  > 
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(a*I  /TFILES/ADMIN.OIR/A.FBACK. TEXT  a) 

(*  writes  examinee  summary  to  text  file  a) 

(a«I  /TFILES/AOMIN. DI R/A. ESUMM. TEXT  a) 

(*  disk  io  *) 

(*tl  /TFILES/ADMIN.OIR/A. 10. TEXT  «) 

(*  utility  subroutines  a) 

(*«!  /TFILES/ADMIN.OIR/A. 1UTL. TEXT  *> 

(*  utility  subroutines  which  can  call  proctor  *) 

(a*!  / TFILES/AOMIN. 0IR/A.2UTL. TEXT  a) 

(«  ability  update  method  *) 

(*S!  /TFILES/AOMIN. DIR/A. UABIL. TEXT  a) 

(a  administer  question/get  response  m) 

(a*I  /TFILES/ADM1N.DIR/A. QUEST. TEXT  a) 

(«  calculate  predicted  asvab  score  for  paper/pencil  «) 

(*SI  /TFILES/AOMIN. OIR/A.PASVAfl. TEXT  *) 


BEGIN  (•  main  program  m) 

I*  initialize  variables  «) 

(a  Fi le  :  CAT. 1UTL  •) 

INITCAT; 

(«  give  continuous  sessions  e) 


<«  display  a  session  header  and  initialize  •) 
<•  File  :  CAT. 1UTL  *) 

SESS I ONHEAOER ; 

(«  give  computer  fami lar ization  «) 

(«  Fi le  :  CAT.CF  «) 

IF  NOT  SKIPFAM  T)CN 
COMPUTERF AMI  LARI ZATIONj 

(•  give  general  instructions  •) 

(*  Fi le  :  CAT.GI  e) 

IF  (FL0UC00E  -  CONTINUE)  AND  (NOT  SKIP)  T>€N 
GENERAL INSTRUCT IONS i 

(m  mark  time  spent  in  orientation  *) 

(*  TIME  is  in  File  :  CAT.1UTL  *) 

OTIME  TRUNCITIIC  -  SESSSTART); 


IF  FLOUCOOE  ■ 
BEGIN  (*1«) 


CONTINUE  THEN 


(*  log-in  examinee  «) 

(*  Fi le  :  CAT. LOGIN  «) 

LOGIN: 

(a  controls  initialization  of  test  scores  a) 

INI TSCORES  FALSE: 

(a  give  a  loop  of  subtests  a) 

UHILE  ((FLOUCOOE  -  CONTINUE)  OR  (FLOUCOOE  -  NEXTST) )  (a  normal  flow  a) 
AND  (TINOEX  <  GMAXSUBTEST)  00  (a  max  <f  of  tests  not  taken  a) 

BEGIN  (s2a) 

FLOUCOOE  CONTINUE: 

(a  index  into  setup  parameter  arrays,  also  saved  as  a) 

(a  'examinee,  lasttest’  for  abnormal  session  exits  a) 

TINDEX  :-  TINOEX  ♦  1, 

(a  mark  where  examinee  currently  is  in  testing  sequence  a) 
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EXAMINEE. LASTTEST  T1NOEX; 

(«  initialize  the  examinee  test/parameters  *) 

(*  Fi le  :  CAT. INI TE  *) 

1NITEXAMINEE; 

(*  give  a  test  if  anymore  to  give  ,  if  currtest  is  >•  8  *) 

(e  that  means  there  is  a  test  to  be  given.  *) 

IF  CURRTEST  <-  MAXSU8TESTS  THEN 
BEGIN  (*3«) 

(*  clock  the  beginning  of  the  subtest  *) 

(*  File  :  CAT. 1UTL  *) 

SUBTSTART  TIME; 

(*  load  the  subtest  according  to  strategy,  give  teat  *) 

(*  instructions  and  sample  questions.  «) 

(*  File  :  CAT.LOADT  «) 

LOAOTEST; 

(*  mark  the  time  spent  in  instructions  and  samples  «) 

TESTS. STINSTRTIME  TRUNC (TIME  -  SUBTSTART): 

(*  give  a  loop  of  questions  *) 

UHILE  (FLOUCOOE  -  CONTINUE)  (*  normal  flou  mode  m) 

AND  (QTftJM  <  CURRTLENGTH)  DO  {*  max  tt  of  questions  not  taken  *) 
BEGIN  (*4«) 

(*  select  question  according  to  strategy,  display  ,  •) 

(*  get  response,  save  response,  8  update  counters.  «) 

(*  File  :  CAT. QUEST  *) 

AOMINISTEROUESTION; 

(«  if  question  was  answered  *) 

IF  (FLOUCOOE  -  1)  OR  (FLOUCOOE  -  6)  THEN 
BEGIN  (*S*> 

(«  save  the  ability  and  variance  *) 

TESTS. I TEMINFOtOgUMl. THETA  CURRABILITY; 

TESTS. ITEM1NF0IQNUMI. ERROR  CURR VARIANCE; 

(«  give  feedback  if  any  *) 

(*  Fi  le  :  CAT.FBACK  «) 

FEEDBACK  (FB I TEM .  SPAR  AMS .  I TEMFB,  SPARAMS .  I TEMOUTPUT )  ; 

(*  increment  array  index  for  next  question  *) 

QNUM  QNUM  +  1; 

IF  CURRVARIANCE  <-  S  P ARAMS. CK_ERROR  IT  INDEX)  THEN 
FLOUCOOE  NEXTSTf 

END;  (*5e) 

END;  (*4«)  (*  loop  of  questions  •) 

PAGE (OUTPUT) ; 

(*  save  final  abi I i ty/ variance  *) 

TESTS. ESTABILITY  CURRABILITY; 

TESTS. VARIANCE  CURRVARIANCE; 


(*  save  amount  of  time  spent  at  this  subtest  *) 
TESTS. STTIME  TRUNC (TIME  -  SUBTSTART); 


(*  subtest  feedback  *) 

(*  File  :  CAT.FBACK  *) 

FEEDBACK (FBSUBTEST, SPARAMS. SUBTESTFB, SPARAMS. SUBTESTOUTPUT) ; 


(*  look-up  and  save  predicted  asvab  *) 

(*  Fi I  a  :  A. P ASVAB  *) 

EXAM  I  NEE . PREO ASVAB  IT  I NOEX) : -PREASV ABC ALC (CURRAB I L I T Y) ; 
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(e  check  subtest  atop  flag  e) 

(«  IF  FLOUCOOE  -  1  THEN 

CALLPROCTOR(S.FLOUCOOE)i  *> 


(e  write  subtest  results  to  disk  *) 

(*  File  :  CAT. 10  «) 

UPOATERESULTS(TNUM) i 

(e  is  taking  suceeding  subtests  from  the  beginning  and  aust  e) 
(«  initialize  his  test  scores.  e) 

INI TSCORES  s-  TRUE! 


(«  save  current  examinee  data  m) 

(*  Fi le  :  CAT. 10  *) 

UPDATEEXAMINEE  (ERECNUH) j 

END:  («3«) 

(«  increment  file  record  U  to  store  next  subtest  *) 

TNUT1  !-  TNUM  +  1; 

END;  (s2«)  (*  loop  of  subtests  m) 

(«  give  session  feedback  *) 

IF  FLOUCOOE  -  1  THEN 

EXAM1NEE.LASTTEST  : •  128:  (m  flag  examinee  totally  done  *) 

(si  if  examinee  leaves  session  in  middle  of  timed  test,  save  time  m) 
(si  expended.  m) 

IF  (FLOUCOOE  -  6)  AND  (CURRSTRAT  -  TIMED)  THEN 
EXAMINEE. PREVTIMELASTTEST  s-  ELASPEDTIMEs 

ENO:  (ele)  (*  continue  after  general  instructions  •) 

IF  FLOUCOOE  -  1  THEN 

FEE08ACX  (FBSESSION.SPARAMS.SESSIONFB.SPARAMS.SESSIONOUTPUT) s 

(«  give  closing  session  message  and  save  some  data  ») 

(*  Fi le  :  CAT. 1UTL  e) 

CLOSING  JESS  AGE: 

(e  save  examinee  data  in  coded  textfile  if  done  •) 

(si  Fi  le  :  CAT.ESUMM  *) 

IF  (EXAM I NEE . LAST TEST  >  GMAXSUBTEST)  AND  (NOT  OEMOFLAG)  THEN 
BEGIN 

CALLPROCTOR(S. FLOUCOOE)!  (*  Iasi  proctor  call  *> 

EXAMINEE. NUMPROC: -EXAMINEE. NUMPROC  -1; 

ESUMMARY: 

END: 

UNTIL  FLOUCOOE  -  ENOOFOAY: 

«) 


ENO.  (si  catdemo 
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(*  *) 

(*  Textfile  :  AOMIN. OIR/A. DEC. TEXT  Volume  :  TFILES  «) 

(*  Codefile  :  AOMIN. CODE  (’Include*  file)  Volume  :  CATQATA  «) 

<*  «) 

( ***•**********»'«****'»********************  t*******-*t*****'*-**f  ft*******  t****t  rtf  ) 

(*  File  Last  Modified  :  October  7  1383  NPROC  *) 

(*****************  ******«««»*«**********■*»*******■*****«**»■**■»««■*<■«■»»■— ft  ***ttt*) 


(*  constant,  var,  6  type  declarations  *) 

CONST  (*  ascii  values  *) 

BELL  -  7; 

LARROU  -  8; 

RARROU  -  21: 

RET  -  13: 

ESC  -  27: 

SPACE  -  32: 

ASCIIOFFSET  •  48;  (*  ascii  zero  *) 

NIL  •  -1;  (*  signifies  not  used/bad  value  *) 

(*  these  are  asci i  for  the  a  b  c  d  e  keys  *) 


AKEY 

am 

74; 

(* 

asci  i 

j 

*) 

BKEY 

m 

75; 

(* 

asci  i 

K 

*) 

CKEY 

m 

7G; 

(* 

asc  i  i 

L 

e) 

DKEY 

m 

59: 

(* 

asci  i 

e 

» 

«) 

EKEY 

m 

39: 

(* 

asc  i  i 

» 

«) 

(*  floucode  values,  serves  as  path  gates  for  program  flou  •) 
CONTINUE  -  1: 

EXITGI  -  2; 

EXITLOGIN-  3: 

EXITSQ  -  4; 

NEXTST  -  5: 

NEXTSESS  -  G; 

ENDOFDAY  -  7; 


(*  floucode  values  for  ghost  routines  *) 
OLD  -  lj 
SINGLE  -  2: 

AUTO  -  3; 


(*  keypad  assignments  *) 

HELPKEY  -  92;  <*  ascii  \  *) 

YESKEY  •  13;  (*  ascii  <enter>  m) 

NOKEY  •  45;  (*  ascii  -  *) 

ERASEKEY  «  4G;  (*  ascii  .  *) 

(*  maximum  size  of  ascii  buffer  *) 

MAX I TEMBUF  -  2847; 

(*  line  character  buffer  size,  0  -  79  »  80  char  *) 

MAXL I NEBUF  -  79s 

l*  question  textfile  control  codes  *) 

GOTOFLAG  *128;  (*  signals  gotoxy  condition  *) 

PAGEFLAG  *  129;  (*  signals  another  page  of  text  «) 

UNUSE DFLAG  -  130;  (*  signals  byte  not  used  *) 

ENOITEM  ■  131;  (*  signals  end  of  text  for  question  *) 

(*  these  files  must  reside  on  disk  !  *) 

OATANAME  -  ’CATOATA: I TEMPOOL.OATA’ ,  (*  question  data  *) 

TEXTNAME  -  ’QTEXT: I TEMTEXT.OATA' :  (*  question  text  *) 

I  NOEXNAME  -  ’CATOATA:TESTINOEX.DATA’ ;  (*  test  directory  *) 

EINOEX  *  ’CATDATAsEINOEX.DATA’ ;  («  examinee  directory  *) 

INFONAME  *  'CATOATAjEINFO.DATA* ;  («  examinee  data  *) 

RESULTS  »  ’CATOATA:ERESULTS.OATA’ ;  («  examinee  test  scores  si) 
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TABNAME  -  'CATDATA: TABINFO.OATA’ i  (*  information  tables*) 
SETUPOATA  -  ’CATDATA:PARAMETERS.DATA’ j  (s  test  default  parameters  *) 


(*  slots  available  in  test  directory,  0  -  20  e) 
MAXSU8TESTS  -  20: 

(«  maximum  question  pool  per  test,  0  -  300  e) 
MAXITEMPOOL  -  300; 

(*  maximum  U  of  sample  questions  you  can  have  *) 
MAXSAMPLES  -  5: 

(*  slots  available  in  examinee  directory,  0  -  50  e) 
MAXEXAMINEE  -  50; 

(*  max  U  of  questions  you  can  give  per  test  s) 
QUESTIONS  -  20; 

(*  max  U  of  subtests  you  can  give  s) 

GT1AXSUBTEST  -  20: 

(*  max  ability  for  ghost  loop  *) 

MAXGTHETA  -  3; 

(*  min  ability  for  ghost  loop  *) 

MINGTHETA  -  -3; 

(*  cat  strategy  codes  *) 

NONE  -  0; 

B102222  -  1:  (*  original  bayaian  «) 

BS4321  -  2: 

B188642  -  3; 

TIMED  -  4: 


(*  information  table  dimensions  ,  used  for  bayesian  strategy  *) 
(*  36  rous  and  20  columns  a) 

INFOROU  -  36: 

INFOCOLUMN  -  20; 

(*  demo  id  U  ,  no  files  are  written  to  disk  uith  this  id  #  *) 
DEMO 10  -  'DEMO  ’; 

(*  printer  unit  number  •) 

UNITNUMPRINTER  -  ’PRINTER:*: 

(*  code  number  to  flag  compressed  graphics  m) 

COMPRESSED  -  1.0: 

VERSION  -  ’ [1.051’; 


TYPE  (*  different  types  of  uays  to  ansuor  a  question  m) 

I TEMRESPONSES  -  (CHARVALUE,  (a  normal  multiple  choice  *) 

INTVALUE,  («  integer  value  as  ansumr  m) 

SEVENCHR);  («  seven  characters  saved  as  an suer  a) 


(*  ability  loop  range  a) 
100PRANGE  -  MINGTHETA.. MAXGT)CTA; 


(a  feedback  levels  a) 

TYPE FEEDBACK  -  (FBI TEM,  FBSUBTEST,  FBSESSION); 

(a  type  of  question  response  a) 

SEVENTYPE  -  PACKED  ARRAY [1.. 7]  OF  CHAR; 

(*  social  security  number  a) 

IDTYPE  -  PACKED  ARRAYI0..8)  OF  CHAR; 

(a  all  characters  a) 
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SETOFCHAR  -  SET  OF  CHAR: 

(*  information  table  «) 

TABLE  -  ARRAY [1. . INFOCOLUMN, 1. . INFOROUI  OF  INTEGER: 

(«  test  directory  e) 

OIROATA  -  PACKED  RECORD 

(«  true  “■>  this  record  not  occupied  e) 

UNUSED  :  BOOLEAN: 

(*  name  of  sub test  e) 

TESTNAME  :  STRING: 

(*  directory  of  pool  of  questions  in  subtest  *) 

I TEMCOOE  :  PACKED  ARRAY 

I0..MAXITEMPOOU 

OF  INTEGER;  («  question  code  M  *) 

END; 

(*  question  ptr s/data  ,  information  for  each  question  «) 

ITEMDATA  -  PACKED  RECORD 

(*  flags  if  graphics  item  *) 

GRAPHICS  :  BOOLEAN; 

(*  valid  response  ranges  for  multiple  choice  •) 
LOUANSUER, 

H1GHANSUER  :  CHAR; 

(«  block  U  in  file  where  text  starts  •) 

I TETBLOCK , 

(«  byte  U  in  block  uhere  text  starts  •) 

ITEMPTR, 

(»  P  of  answers  if  multiple  question  mermen  ») 
ANSUERCOUNT  :  INTEGER; 

(«  information  parameters  for  bayesian  strategy  •) 
A.B.C, 

(*  currently  unused  *) 

PROPCORRECT, 

POINTBISERIAL, 

YOPT, 

XOPT, 

ourriYi. 

DUMMY2, 

DUMMY3  :  REAL; 

(*  correct  answer  to  question  «) 

CASE  ATYPE  :  I TEMRESPONSES  OF 
CHARVALUE  ;  (ANSUER  :  CHAR); 

INTVALUE  :  (INTANSUER  :  INTEGER); 

SEVENCHR  ;  (CHR ANSUER  :  SEVENTYPE); 

END; 


(*  examinee  directory  *) 

INOEX  -  PACKED  ARRAY [0. .MAXEXAMINEE)  OF  PACKED  RECORO 

(*  true  -■>  trecord  available  «) 
UNUSED  :  BOOLEAN; 

(*  social  security/ id  <ey  «) 

ID  :  IOTYPE: 

END; 


(*  examinee  personal  data  «) 
EXAMEINFO  -  PACKED  RECORO 
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(*  social  security  It  *) 

ID  :  10TYPE; 

(*  time  spent  In  computer  orientation  m) 
ORIENTATIONTIHE, 

(*  if  timed  test,  last  time  uhen  session  interrupted  *) 
PREVTIHELASTTEST, 

(*  number  of  proctor  calls  •) 

NUnPROC, 

(*  total  time  spent  at  computer  *) 

TOTTMECONSOLE, 

(«  number  of  key  in  errors  •) 

NUnERRORS, 

(m  U  of  last  test  taken  -  1,  eg.-  if  on  test  5  then  «) 
(»  this  variable  holds  a  value  of  4.  *) 

LASTTEST  :  INTEGER: 

(«  date  of  log  in  *) 

OATE  :  PACKED  ARRAY  [0. . 51  OF  CHAR: 

(*  time  at  log  in  «) 

TIME  :  PACKED  ARRAY [0. . 31  OF  CHAR: 

(*  testing  conf iguration  given  to  this  examinee  m) 

(«  record  U  of  subtest  directories  *) 

TESTOROER, 

(*  adaptive  strategy  s) 

STRATEGY. 

(m  tt  of  questions  per  test  •) 

TESTLENGTH  t  PACKED  ARRAY  11.. GMAXSUBTEST] 

OF  0..128: 

(*  predicted  asvab  scores  for  paper /pencil  *) 

PREOASVAB, 

(*  initial  variance  for  each  test  •) 

CKERROR  :  ARRAY (1. .GttAXSUB TEST]  OF  REAL: 

(m  flags  to  control  flou  of  subtesta  «) 

SUBSTOP  :  PACKED  ARRAY  11. .GMAXSUBTEST)  OF  BOOLEAN; 

END: 


(*  question  scores  ,  data  on  examinee  with  respect  to  question  *) 
ITEM  -  PACKED  RECORD 

(s  true  ••>  answered  correctly,  for  seven  char  answer  «) 
ACORRECT  :  PACKED  ARRAY [0..6J  OF  BOOLEAN; 

(•  number  of  ansuers  *) 

ACOUNT, 

(*  which  question  he  took,  code  tt  *) 

ITEflNUn  :  INTEGER: 

(*  true  — >  answered  it  correctly  *) 

CORRECT  :  BOOLEAN: 

(*  ability  after  answering  this  question  s) 

THETA, 

(*  variance  after  answering  this  question  *) 

ERROR, 
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(a  tise  spent  answering  this  question  *) 
LATENCY  :  REAL: 

(a  ho u  he  answered  the  question  a) 

CASE  RTYPE  :  I TEMRESPONSES  OF 
CHARVALUE  :  (RESPONSE  :  CHAR); 

1NTVALUE  ;  UNTRESPONSE  »  INTEGER): 
SEVENCHR  :  (CHR RESPONSE  :  SEVENTYPE); 

END; 


(*  test  scores  of  exaainee  results  a) 

SUBTEST  -  PACKED  RECORD 

(a  tiae  taken  for  subtest  a) 

sttime, 

(a  tiae  taken  for  subtest  instructions  a) 

STINSTRT1ME, 

(a  nuaber  of  proctor  calls  during  subtest  a) 
STPROCTCALLS, 

(a  aodified  tiae  -  tiae  for  subtest  ainue  overhead  a) 
MOOSTTIME  :  INTEGER; 

(a  nuaber  of  questions  he  answered  a) 

NUM ITEMS, 

(a  U  of  correct  responses  a) 

NUMCORR  :  0..128; 

(a  final  estiaate  of  ability  a) 

ESTA8ILITY, 

(a  final  variance  of  ability  a) 

VARIANCE  :  REAL; 

(a  results  on  question  level  a) 

ITB1INF0  ;  PACKED  ARRAY  10.. QUESTIONS)  OF  ITEM; 

END; 


(a  set-up  parameters  a) 

SETUP INFO  -  PACKED  RECORD 

(a  flags  0  taste  in  sequence,  >  20  -  no  subtest  a) 
SUBORDER, 

(a  strategy  setup  a) 

SUBSTRAT  :  PACKED  ARRAY tl .. GMAXSUBTEST) 

OF  0. .128; 

(a  question  feedback  code  a) 

ITEMFB, 

(a  question  feedback  output  code  a) 

ITEMOUTPUT, 

(a  subtest  feedback  code  a) 

SUBTESTFB. 

(a  subtest  feedback  destination  code  a) 

SUBTESTOUTPUT, 

(a  session  feedback  code  a) 

SESSIONFB, 

(a  session  feedback  destination;  screen/pr inter  a) 
SESSIONOUTPUT  ;  0..128; 

(a  subtest  stop  flag  a) 

SUBSTOP  ;  PACKED  ARRAY  II .. GMAXSUBTEST)  OF  BOOLEAN; 
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(e  subtest  length  «) 

SUBLENGTH  :  PACKED  ARRAY tl .. GMAXSUBTEST) 

OF  8.. 128; 

(«  initial  variance  «) 

CKERROR  :  ARRAY  tl • . GnAXSUBTESTl  OF  REAL; 

ENO; 


VAR  (a  0  through  9  *) 

DIGITS, 

(*  he  I pkey, yeskey, nokey, erasekey  *) 
CONTROLKEYS, 

(«  digits  ♦  control  keys  a) 

KEYPAD  ;  SETOFCHAR; 

(*  ability  for  ghost  routines  e) 
ABLOOP:  LOOPRANGE; 


(*  string  character  buffer  *) 

LINEBUF  :  PACKED  ARRAY [0. .HAXL1NEBUF]  OF  CHAR; 

(*  contains  rou  and  coluan  index  in  the  infotable  a) 
SAVERC  :  ARRAY  [1.. 4]  OF  INTEGER; 


LEVEL. 

OTIHE. 

ELASPEDTIHE, 

flAXTinE, 

RITEPREFETCH. 

URONGPREFETCH, 

QPREFETCH. 

FLOUCOOE. 

GHOSTFLOU. 

CURRSTRAT. 

CURRTLENGTH, 

CURRTEST, 

TINDEX. 

ERECNUn, 

QNUT1. 

TNLfl  :  INTEGER; 


(a  rou  location  inde  for  the  stay  routine  a) 

(a  tiae  spent  in  coaputer  orientation  a) 

<a  elasped  tiae  in  seconds  for  tiaed  tests  a) 

(a  aaxiaua  tiae  in  seconds  for  tiaed  teste  a) 

(a  directory  slot  of  prefetch  if  correct  a) 

(a  directory  slot  of  prefetch  if  urong  a) 

(a  next  question  to  be  selected.  «  one  of  above  a) 
(a  controls  flou  in  driver  a) 

(a  flou  control  for  ghost  routines  a) 

(a  current  test  strategy  al 
(a  current  M  of  questions  to  give  a) 

(a  current  record  0  of  subtest  a) 

(a  index  into  test  order  array  a) 
fa  current  exaainee  record  M  a) 

(a  current  array  index  for  question  results  a) 

(a  current  test  result  record  file  nuaber  a) 


SESSSTART,  (a  tiae  at  start  of  session  a) 

SUBTSTART,  (a  tiae  at  start  of  subtest  a) 

GTHETA,  (a  ghost  theta  s! 

RITEABILITY,  (a  precalculated  ability  if  ansuered  correctly  a) 

URONGABILITY,  (a  precalculated  ability  if  ansuered  urong  a) 

RITEVARIANCE,  (a  precalculated  variance  if  correct  a) 

URONGVARI ANCE,  (a  precalculated  variance  if  urong  a) 

CURRABILITY,  (a  current  exaainee  ability  level  a) 

CURRVARI ANCE  :  REAL;  (a  current  variance  of  ability  a) 


STAY,  (a  true  ■■»  prograa  runs  at  one  ability  level  a) 

GHOST,  (a  true  -->  prograa  in  self  test  aode  a) 

REVERSEVIOEO,  (a  true  -->  screen  is  inverse  a) 

FORTYCOLUHN,  (a  true  -->  screen  is  40  columns  a) 

GRAFIX,  (a  true  ■■>  console  is  currently  in  graphics  a) 

SKIP,  (a  true  ••>  skip  to  log  in  a) 

SKIPFAH,  (a  true  ■•>  skip  coaputerfasi I iarization  a) 

SAHPLEQUESTION,  (a  true  -->  giving  sample  question  a) 

TIMEOUT,  (a  true  ■«>  tiae  up  for  subtest  a) 

FIRSTQUESTION,  (a  true  ••>  first  question  given,  don't  prefetch  a) 

DEHOFLAG,  (a  true  »•>  don't  update  files  a) 

INITSCORES,  (a  true  •■>  init  test  record  scores  a) 

CURRSU8ST0P,  (a  true  •■>  halt  session  after  eubtest  a) 

RIGHT,  (a  TRUE  ••>  exaainee  ansuered  question  correct  a) 

NEUEXATIINEE  :  BOOLEAN;  (a  true  «•>  first  tiae  exaainse  has  logged  in  a) 
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OUTPUT  :  char; 


<s  dummy  variable  for  page  function  *) 


SYSTEMDATE  ;  PACKED  ARRAY [0..S1  OF  CHAR; 

(*  buffer  uhich  serves  to  hold  item  question  ascii  or  compressed  *) 
(*  graphics  information  .  *) 

TR1X  s  RECORD  CASE  INTEGER  OF 

1  s  ( I TEMBUF  :  ARRAYI0. .  1023)  OF  INTEGER); 

2  ;  (ASCI IBUF  s  PACKED  ARRAY (0. . 2047)  OF  0..139); 

END; 


(*  test  directory  *) 

DIRECTORY  s  DIRDATA; 
FILEOIRECTORY  :  FILE  OF  DIRDATA; 


(*  test  question  ptr s/data  *) 
ITEMNFO  ;  ITEfIDATA; 
FILEITEMINFO  :  FILE  OF  1TEIDATA; 


(«  file  of  ascii  codes,  control  tt'  a  *) 
ITEMTEXT  :  FILE; 


(*  examinee  personal  data  «) 
EXAMINEE  :  EXAMEINFO; 
FILEEXAMINEE  :  FILE  OF  EXATCIfFO; 


(«  examinee  directory  •) 
DIR  ;  INDEX; 

EDIR  t  FILE  OF  INDEX; 


(*  examinee  test  results  «) 
TESTS  ;  SUBTEST; 

FILETESTS  ;  FILE  OF  SUBTEST; 


(***  set-up  variables  ***) 

SPAR AMS  ;  SETUP INFO; 

FILE  SPAR  AMS  ;  FILE  OF  SETUPItFO; 


(*  info  table  *) 

INFOTABLE  ;  TABLE; 

INFOFILE  t  FILE  OF  TABLE; 

(*  store  used  questions  here  *) 

USEDQ  ;  PACKED  ARRAY [0. .QUESTIONS)  OF  INTEGER; 

(*  for  text  file  listings  *) 

DEST  ;  TEXT; 

(*  debugging  flag  *) 
trace  :  boolean; 


PROCEDURE  LOAD INDEX;  FORUARO; 

PROCEDURE  LOAOEXAMINEE (RECNUM  t  INTEGER);  FORUARO; 
PROCEDURE  UPOATEEXAM I  NEE (RECNUM  :  INTEGER);  FORUARO; 
PROCEDURE  UPOATEINOEX;  FORUARO; 

PROCEDURE  UPOATERESULTS (REQWM  :  INTEGER);  FORUARO; 
PROCEDURE  LOADRESULTS (RECNUM  t  INTEGER);  FORUARO; 
PROCEDURE  LOAD INFO (RECNUM  ;  INTEGER);  FORUARD; 
PROCEDURE  LOADP ARAMS;  FORUARD; 

FUNCTION  GHOSTDIGIT  s  CHAR;  FORUARO; 

FUNCTION  GHOSTKEY  :  CHAR;  FORUARO; 

PROCEDURE  PAGE (DUMMY  i  CHAR);  FORUARO; 
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PROCEDURE  SOU AUK;  FORUAROj 
FUNCTION  GETCHARIOKSET  *  SETOFCHAR; 

FLUSHQUEUE, 

ECHO. 

BEEP  :  BOOLEAN)  :  CHAR:  FORUARO; 

PROCEDURE  FILLBUF (CHARCNT  :  INTEGER: 

OKSET  :  SETOFCHAR:  ERASE  t  BOOLEAN):  FORUARO: 

PROCEDURE  SCRCONTROL ( I, J.Ks INTEGER),  FORUARO: 

PROCEDURE  TEXT40MOOE;  FORUARO: 

PROCEDURE  TEXT80MOOE:  FORUARO; 

PROCEDURE  INVERSE:  FORUARO: 

PROCEDURE  NORMAL SCR;  FORUARO; 

FUNCTION  TIME  :  REAL*  FORUARO; 

PROCEDURE  GURI TESTRIGSTR  *  STRING)*  FORUARO* 

PROCEDURE  GGOTOXYIX.Y  :  INTEGER):  FORUARO; 

PROCEDURE  INI TFORGRAFIX;  FORUARO; 

PROCEDURE  DELAY (SECONOS  :  INTEGER);  FORUARO: 

PROCEDURE  SESSIONHEAOER:  FORUARO: 

PROCEDURE  CL OS I NCMESS AGE :  FORUARO; 

PROCEDURE  STALL:  FORUARO: 

PROCEDURE  DECODEPRINTIBLOCKNUn.  BLOCKPTR  :  INTEGER);  FORUARO; 

PROCEDURE  BLANKLINES (START, COUNT, ENOCURSOR  :  INTEGER);  FORUARO; 

FUNCTION  SLOT ICOOE  ;  INTEGER)  s  INTEGER;  FORUARO; 

FUNCTION  HASHIKEY  :  INTEGER)  :  INTEGER;  FORUARO; 

FUNCTION  GETINTSTR  :  INTEGER;  FORUARO; 

PROCEDURE  GURITECHRIGCHR  :  CHAR);  FORUARO; 

PROCEDURE  GURITEINT (GINT  :  INTEGER);  FORUARO* 

PROCEDURE  GURITELN;  FORUARO; 

PROCEDURE  GSTALL*  FORUARO; 

FUNCTION  GGETCHAR (OKSET  :  SETOFCHAR; 

FLUSHQUE, 

ECHO, 

BEEP  >  BOOLEAN)  :  CHAR*  FORUARO* 

PROCEDURE  GBLAtKLINESISTARTBLANK, 

BLANK THISMANY, 

LEAVECURSOR  ;  INTEGER)*  FORUARO; 

PROCEDURE  GF I LLBUF (CHARCNT  «  INTEGER; 

OKSET  *  SETOFCHAR;  ERASE  :  BOOLEAN)*  FORUARO; 

PROCEDURE  GOECOOEPRINT (SUBTESTNUM, 

ITEMCOOE  :  INTEGER);  FORUARO; 

FUNCTION  GGETINTSTR  *  INTEGER;  FORUARO; 

PROCEDURE  PF I LLBUF (CHARCNT  :  INTEGER* 

OKSET  *  SETOFCHAR;  ERASE  «  BOOLEAN* 

FILLFROM  *  INTEGER;  VAR  FFLOU  :  INTEGER);  FORUARO, 
PROCEDURE  PSTALL(STALLFROM  :  INTEGER*  VAR  SFLOU  :  INTEGER);  FORUARO* 

FUNCTION  GETCHRANSUER (CALLEOFROM  *  INTEGER; 

VAR  PCOOE  :  INTEGER)  *  CHAR*  FORUARO* 

FUNCTION  GETINTANSUERICALLEDFROM  *  INTEGER, 

VAR  PCOOE  :  INTEGER)  s  INTEGER*  FORUARO* 

PROCEDURE  GETSEVENANSUERSIQSTNUM.QSTCNT. CALLEOFROM, 

G8L0CK.GPTR  *  INTEGER, 

VAR  A7:SEVENTYPE;  VAR  PCOOE, QACNT  ,  INTEGER), 

FORUARO; 

PROCEDURE  GPF I LLBUF (CHARCNT  :  INTEGER; 

OKSET  :  SETOFCHAR;  ERASE  :  BOOLEAN* 

FILLFROM  t  INTEGER;  VAR  FFLOU  :  INTEGER);  FORUARO; 

FUNCTION  GGETCHRANSUER (CALLEOFROM  *  INTEGER; 

VAR  PCOOE  :  INTEGER)  *  CHAR;  FORUARO; 

FUNCTION  GGETINTANSUER (CALLEOFROM  :  INTEGER; 

VAR  PCOOE  ;  INTEGER)  *  INTEGER;  FORUARO* 

PROCEDURE  GGETSEVENANSUERS (QSTNUM, QSTCNT , CALLEDFROM, 

GTEST.GITEM  *  INTEGER* 

VAR  A7:SEVENTYPE; 

VAR  PCOOE, QACNT  ,  INTEGER),  FORUARO, 
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limwmmiHHMMMrtmw  *-***********  mimm»n-i-n.nni.  Tf 
(*  «) 

<*  Textfile  :  ADMIN.DIR/A.1UTL.TEXT  Volume  :  TF1LES  m) 

(«  Codefile  :  AOMIN. CODE  ('Include'  file)  Volume  :  CATOATA  «) 

(«  *) 

(*  File  Last  Modified  :  October  7  1983  NPROC  *) 


FUNCTION  GHOSTDIGIT; 

BEGIN 

GHOSTDIGIT  :-  CHRURANDOM  MOO  10)  +  48); 
END:  (*  ghost  digit  *) 


FUNCTION  GHOSTKEY; 

VAR  T  :  INTEGER; 

GKEY  :  CHAR; 

BEGIN 

REPEAT 

T  :-  RANDOM; 

T  :-  (T  MOO  5)  ♦  1; 

CASE  T  OF 

1  :  GKEY  'A'; 

2  :  GKEV  :-  ’B’: 

3  :  GKEY  :-  'C'; 

4  :  GKEY  :-  'O': 

5  :  GKEY  :- 
END: 

UNTIL  GKEY  IN  II TEMINFO.LOUANSUER. .  ITEM!)*  O.HIGHANSUER) : 
GHOSTKEY  GKEY; 

END;  (m  ghostkeg  *) 


FUNCTION  GRANQOM:REAL; 
BEGIN 

GRANOOM:  -RAICOM/MAX I  NT ; 
END; 


FUNCTION  PROB (THETA, A. B, C:REAL) : REAL; 

BEGIN 

PROB:-  C  ♦  (1-C)  /  (1  ♦  EXP (-1.7  m  A  *  (THETA-B))); 
END; 

FUNCTION  NEUGHOSTKEY (THETA: REAL) :CHAR; 

VAR 

R.P:REALs 
ANS: INTEGER: 

BEGIN 

R: -GRANOOM; 

P:-PROB(THETA, ITEM1NF0. A, ITEM1NF0.B, ITEMINFO.C) ; 

IF  R  >  P  THEN 
BEGIN 

ANS:-  ORO(ITEMINFO.ANSUER); 

IF  ANS  <  ORO(ITEMINFO.HIGHANSUER) 

THEN  ANS:-  SUCC(ANS) 

ELSE  ANS: -PRED (ANS) ; 

NEUGHOSTKEY:-  CHR(ANS); 

END 

ELSE 

NEUGHOSTKEY : - I TEM I NFO . ANSUER ; 

END; 


(«  clears  screen  and  puts  cursor  at  0,0  •) 
PROCEDURE  PAGE: 

BEGIN 

URITE(CHR(28)); 


21 


Dec  7  17:43  1983  ADMIN. DIR/A. 1UTL. TEXT  (  Utilities)  Page  2 


GOTOXY  (0,8)  ; 

EM);  (*  page  e) 


(***»  rings  the  bell  *»*») 
PROCEDURE  SQUAWK; 

BEGIN 

WRITE (CHR (BELL) ) ; 

END;  (*  squawk  «) 


(*  read  an  acceptable  character  froa  the  keyboard  *) 
FUNCTION  GETCHAR; 

VAR  MASK  :  PACKED  ARRAY [0..0I  OF  CHAR; 

ASCII  :  INTEGER; 

BEGIN 

IF  FLUSHQUEUE  THEN  UNITCLEARI2);  <*  flush  buffer  e) 
REPEAT 

UNI  TREAD (2. MASK, 1 ) ; 

ASCII  :•  0R0 (MASK (0) ) ; 

CASE  ASCI  I  OF 


AKEY 

| 

MASK  (01 

s  - 

*A’; 

BKEY 

: 

MASK  (0) 

:  - 

•B'; 

CKEY 

: 

MASK  (0) 

2  - 

•C*; 

DKEY 

: 

MASK  (0) 

:  - 

•O’; 

EKEY 

2 

MASK  (0) 

:  • 

•E*, 

ENO; 

IF  BEEP  AND  NOT  (MASK  [0]  IN  OKSET)  THEN  SQUAWK; 
UNTIL  MASKI01  IN  OKSET; 

IF  ECHO  AND  (MASK  [0]  IN  £CHR(32) .  .0»(126>1 ) 

AND  (NOT  (MASK [01  IN  CONTROLKEYS) )  THEN 
WRITE (MASK (0) ) ; 

GETCHAR  MASK  [01; 

ENO;  («  getchar  e) 


(«  read  in  a  string  and  save  in  a  teeporary  buffer  *) 

PROCEDURE  FILLBUF; 

VAR  I  ;  INTEGER; 

IOCHAR  :  CHAR; 

BEGIN 

I  : •  0;  («  initialize  count  of  characters  •) 

REPEAT 

IF  I  >  (CHARCNT-1)  THEN 

(*  eaxieua  char  typed  in/allou  only  backspace  or  return  •) 
I OCHAR  : ■ 

GETCHAR ( (CHR (ERASEKEY) . CHR ( YESKEY) 1 , TRUE, FALSE, TRUE) 

ELSE 

BEGIN 

(«  get  a  character  ») 

IOCHAR  : - 

GETCHAR  (OKSET  +  (CHR  (YESKEY) . 

CHR (ERASEKEY)), 

TRUE. TRUE, TRUE); 

IF  (IOCHAR  IN  OKSET)  AND  (IOCHAR  <>  CHR  (YESKEY))  THEN 
(*  save  vieible  character  a) 

BEGIN 

IINEBUF (I)  IOCHAR; 

I  :•  I  +  1; 

ENO; 

END; 

IF  IDCHAR  -  CHR (ERASEKEY)  THEN 
(«  back  space  key  hit  *) 

BEGIN 

IF  I  -  0  THEN  («  no  character  to  backspace  over  «) 

SQUAWK 

ELSE 

BEGIN 

WRITE (CHR (L ARROW) ) ;  (*  aove  cursor  back  one  *) 

I  *“  I  -  1;  (*  adjust  string  buffer  location  ») 
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IF  ERASE  THEN 

(*  blank  out  backspaced  character  *) 
BEGIN 

URITE(*  *); 

WRITE  (CHR(LARROU)); 

LINEBUFIl) 

END; 

END; 

ENO: 

UNTIL  1DCHAR  -  CHfl  (YESKEY) ; 

ENO;  (e  f i I Ibuf  ») 


(*  send  control  characters  to  screen  *) 

PROCEDURE  SCRCONTROL; 

I  PASCAL  interface  to  Screen  Control! 
VAR  N:  INTEGER;  I  APPLE  III  Standard  Oevice  Or i vers) 

G_ARRAY;  PACKED  ARRAY  IB. .  31  OF  0..2S5;  I .  Pages  34  to  46.1 

BEGIN 

G_ARRAY  [0]  s «  I;  G  ARRAY  Ill  :-J;  G  ARRAY  I2J:-K; 

UNI TURI TE <1 ,G_ARRAY, 3, . 12) ; 

ENO;  (*  ecrcontrol  *) 


(*  switch  to  40  column  screen  *) 

PROCEDURE  TEXT40MOOE; 

BEGIN 

SCRCONTROLU6.0.28);  (Text  eode  40BU,  followed  by  cl  ear  screen. ) 
ENO;  (*  text40mode  *) 


(*  switch  to  80  column  screen  *) 

PROCEDURE  TEXT80MOOE; 

BEGIN 

SCRCONTROL (04.0,0);  (Restore  Viewport  to  its  original  condition.) 
SCRCONTROL  (16.2,28) ;  I  Text  Node  80.  followed  bg  clearscreen.) 

ENO;  <*  text80mode  *) 


(*  turn  on  reverse  video  e) 
PROCEDURE  INVERSE; 

BEGIN 

SCRCONTROL (18. 0.0); 

END;  (*  inverse  *) 


(*  restore  normal  console  «) 
PROCEDURE  NORMAL SCR; 

BEGIN 

SCRCONTROL  (l  7. 0.0); 

ENO;  («  normal  «) 


(*  returns  the  tt  seconds  elasped  since  start  of  the  day  *) 
FUNCTION  TIME; 

TYPE  T1 MERE CORO  -  RECORO 

S  :  PACKED  ARRAY  11.. 12)  OF  CHAR; 

ENG; 

VAR  HOUR. 

MINUTE. 

SECOND  :  REAL; 

T  :  TIME RECORO; 

TFILE  :  FILE  OF  TIMERECORO; 

BEGIN 

RESET (TFILE,*. CLOCK’ ); 

T  TFILE'*; 
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HOUR  ( (0R0IT.S16I )  -  48.0)  *  10.0)  + 

(OROIT.SI7) )  -  48.0) : 

MINUTE  ( (ORO (T.S  181 )  -  48.0)  *  10.0)  + 

(ORO(T.SI9I )  -  48.0): 

SECOND  ( (ORO (T.S C10] )  -  48.0)  a  10.0)  + 

(ORO (T.S Ill) )  -  48.0): 

TIME  :•  (HOUR  *  3600.0)  +  (MINUTE  *  60.0)  *  SECONO: 
END;  (*  tiae  *) 


(*  does  a  write  to  graphics  screen  for  string  values  *) 
PROCEDURE  GURITESTR: 

BEGIN 

UNI TURI TE (3. GSTfl [11 .LENGTH (GSTR) , 0. 12) ; 

END;  (a  guritestr  a) 


(e  do  a  gotoxy  to  the  graphics  screen,  treats  graphics  screen  as  if  i t  a) 
(s  had  textaode  coordinates  for  80  coluan  by  24  rows.  a) 

PROCEDURE  GGOTOXY; 

VAR  XPOS. 

YPOS  :  INTEGER: 

BEGIN 

XPOS  X  a  7: 

YPOS  191  -  (Y  *  8); 

MOVETO (XPOS. YPOS); 

ENO:  (*  ggotoxy  a) 


(«  set  up  the  grafix  Bode  a) 
PROCEDURE  INITFORGRAFIX; 
BEGIN 

INI TGRAFIX; 

GRAF  I XMOOE (BUS60, 1 ) : 
VIEUPORT (0.559.0.191); 
F1LLCOLOR1UH1TE); 

PENCOLOR (BLACK): 

FILLPORT; 

END:  (a  ini tforgraf ix  a) 


(a  delay,  do  nothing  for  x  seconds  a) 
PROCEDURE  OELAY; 

VAR  START. 

STOP  :  REAL: 

ELASPED  :  INTEGER; 

BEGIN 

START  :-  TIME: 

REPEAT 

STOP  TIME; 

ELASPED  TRUNC (ABS (STOP  -  START)) 
UNTIL  ELASPED  >-  SECONDS; 

ENO:  (a  delay  a) 


(a  session  header  a) 

PROCEDURE  SESSIONHEAOERj 
VAR  SCHAR  :  CHAR; 

BEGIN 

PAGE (OUTPUT) ; 

INITFORGRAFIX; 

GRAFIXON; 

CLOAO ( ’ C ATOATA : CATP I C . FOTO 1 ) ; 

GGOTOXY  (55. 3); 

GURITESTR (VERSION): 

GGOTOXY  (1,23): 

GURITESTR (’Press  the  <YES>  key  to  begin  session  ’); 

if  not  ghost  then 

begin 
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SCHAR  : - 

GETCHAR ( ICHR (YESKEY) , CHR (ESC)) . TRUE . FALSE , TRUE) : 
IF  SCHAR  -  CHR  (ESC)  T)€N 
BEGIN 

SE  TCHA INI*  CATDATA: CATPRO JECT  * ) s 

TEXT80nOOEs 

EXIT  (PROGRAfl) : 

END: 

end; 

PAGE (OUTPUT); 

TEXTON; 

OELAY(l); 

(*  set  noma  I  flou  *) 

FLOUCOOE  CONTINUE; 

(*  mark  tine  at  beginning  of  session  *) 

SESSSTART  TIME; 

END;  («  session  header  «) 


(*  session  end  message  «) 

PROCEDURE  CLOS I NGMESSAGE ; 

VAR  I.J.K  ;  INTEGER: 

BEGIN 

TEXT48M00E; 

(*  nark  total  tine  spent  at  console  *) 

EXAMINEE. TOTTIMECONSOLE  :-  TRUNC (TIME  -  SESSSTART); 

(*  save  tine  spent  in  conputer  orientation  *) 
EXAMINEE. OR/ENTATIONTIME  .—  OTIME; 

(*  save  current  exaninee  data  *) 

UPOATEEXAMINEE  (ERECNUM) ; 

PAGE (OUTPUT); 

GOTOXY  (4,9) ; 

URITECThis  conpletes  the  testing  session.'); 

GOTOXY  (13.  ID; 

URITEC  Thank  you.  ’); 

GOTOXY (G, 13); 

URITE(’Please  report  to  the  proctor.’); 

DELAY (8); 

(*  kill  some  t i me  *) 

IF  (EXAMINEE. LASTTEST  <-  18)  OR  SDEMOFLAG)  TFEN 
DELAY (8); 

END;  (*  closing  message  *) 


(***»  display  a  nessage/uait  for  a  keystroke  ***«) 
PROCEDURE  STALL; 

VAR  ST ALLCHAR  :  CHAR; 

BEGIN 

URITE('  Press  the  <YES>  key  ’); 
if  not  ghost  then 
begin 

STALLCHAR 

GE  TCHAR  ( ICHR  (YESXEY).  Of?  (ESC ) ) .  TRUE  .FALSE .  TRUE ) ; 
IF  STALLCHAR  -  CHR (ESC)  THEN 
BEGIN 

SE  TCHA  INC  CATDATA:  CATPROJECT ' ) ; 

TEXT88M00E; 

EXIT (PROGRAM); 

END; 
end; 

END;  (*  stall  *) 
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(a  reads  the  i ten  text  file  8  displays  i tee  text  a) 
PROCEDURE  OECOOEPRINT; 

CONST  BLOCKSOUT  -  4; 

VAR  X, 

V. 

8, 

CURRPTR, 

CURRBLK. 

CHARCOOE, 

CHARCNT  :  INTEGER: 

BADIO  :  BOOLEAN; 


(a  reads  a  block  froe  disk  into  the  itea  ascii  buffer  *) 
PROCEDURE  READ I TEfBLOCK (UH I CHBLOCK  :  INTEGER); 

VAR  BLOCKSTRANSFERRED, 

ERRNUD  :  INTEGER; 

BADIO  :  BOOLEAN; 

BEGIN 

BAOIO  FALSE; 

RESET ( I TEMTEXT , TEXTNAME) ;  (a  question  text  *) 
BLOCKSTRANSFERRED 

BLOCKREAO (I  TEflTEXT,  TRIX.ASCI  IBUF, BLOCKSOUT , UHI CHBLOCK ) ; 
BAOIO  ((BLOCKSTRANSFERRED  <  1)  OR  (I ORE SUL T  <>  0)); 
ERRNUD  :«  IORESULT; 

CLOSE  (I  TEflTEXT, LOCK) ; 

IF  BAOIO  THEN 
BEGIN 

URITELN;URITELN; 

WRITE ('Block  read  io  error  »  * , ERRNLH) ; 

STALL: 

EXIT (PROGRAM); 

END: 

ENO; 


(*  return  the  next  code  in  ascii  file  *) 

FUNCTION  BUFCOOE  :  INTEGER; 

BEGIN 

BUFCOOE  s-  TRIX. ASCI IBUF ICURRPTR] ; 

CURRPTR  CURRPTR  +  1; 

IF  CURRPTR  >  MAX1TEMBUF  THEN 

(*  end  of  block/get  next  block  and  reset  byte  ptr  a) 
BEGIN 

CURRBLK  s-  CURRBLK  ♦  BLOCKSOUT; 

RE AO I TEMBLOCK (CURRBLK) ; 

CURRPTR  0; 

ENO; 

ENO;  (*  bufcode  *) 


BEGIN  («  decode  print  «) 

PAGE(OUT°UT) ;  (a  clear  the  screen  a) 

RE AO I TEMBLOCK (BLOCKNUM) ; 

(*  set  block/byte  ptrs  a) 

CURRPTR  s-  BLOCKPTR; 

CURRBLK  BLOCKNUM; 

FILLCHAR(LINEBUF (01 ,80, *  ’); 

(a  read  bytes  froa  the  buffer  a) 

REPEAT 

(a  get  char  froa  block  buffer  a) 
CHARCOOE  bufcode; 

CASE  CHARCOOE  OF 

GOTOFLAG  :  BEGIN  (a  aove  cursor  a) 
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(a  next  tuo  bytes  after  flag  are  x,y  coord  ») 

X  BUFCOOE; 

Y  BUFCOOE; 

CHARCNT  BUFCOOE; 

IF  (CURRPTR  +  CHARCNT  -  1)  >  HAXITEHBUF  THEN 
BEGIN 

B  s-  (HAXITEHBUF  +  1)  -  CURRPTR; 

MOVELEF  T ( TR I X . ASC 1 1 BUF  ICURRPTR] , L I NEBUF tXl , B) ; 

X  s-  X  +  B; 

B  CHARCNT  -  B; 

CURRBLK  s-  CURRBLK  +  BLOCKSOUT; 

READ I TEHBLOCK (CURRBLK) ; 

CURRPTR  s-  0; 

HOVELEFT (TRIX. ASCI IBUF  ICURRPTR) .LINE BUF  IX) .B) ; 
CURRPTR  s-  CURRPTR  +  B; 

ENO 

ELSE 

BEGIN 

HOVELEFT (TRIX. ASCI IBUF  ICURRPTR) .LINE BUF  IX) .CHARCNT) ; 
CURRPTR  CURRPTR  +  CHARCNT; 

IF  CURRPTR  >  HAX I TEH8UF  THEN 
BEGIN 

CURRBLK  CURRBLK  +  BLOCKSOUT; 

CURRPTR  0; 

REAOITEHBLOCK (CURRBLK) ; 

ENO; 

END; 

GOTOXY(0,Y) ; 

UR I TE (LI NEBUF) ; 

FILLCHAR (LINEBUF 10] ,88, *  *); 

END; 

PAGEFLAG  :  BEGIN  (a  wait  for  keystroke  to  eee  rest  of  text  e) 
GOTOXY (1,21) ; 

STALL; 

PAGE (OUTPUT); 

EM); 

END  I  TEH  :  ; 

END: 

UNTIL  CHARCOOE  »  ENDI1ET1;  (*  until  end  flag  hit  a) 

END;  (*  decodeprint  a) 


(a  blank  out  lines  a) 

PROCEDURE  BLAMCLINES; 

VAR  I  :  INTEGER; 

BEGIN 

(a  begin  at  a) 

(a  blank  out  so  aany  lines  a) 

FOR  I  0  TO  (COUNT-1)  OO 
BEGIN 

GOTOXY  (0.STARUI); 

IF  FORTYCOLUTW  THEN 
URITEC 
(aAOa) 

ELSE  URITEC 
ENO; 

(a  leave  the  cursor  at  this  line  a) 
GOTOXY (0.ENDCURSOR); 

ENO:  (a  blanklines  a) 


(a  given  a  question  code,  this  function  returns  the  location  a) 
(a  of  the  question  data,  4  text  pointers.  a) 

FUNCTION  SLOT; 

VAR  INDEX  ;  INTEGER; 

FOUND  :  BOOLEAN; 

BEGIN 
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INDEX  MAXSAMPLES  +  1< 

FOUND  FALSE; 

REPEAT 

IF  DIRECTORY. I TEMCOOE IINOEX]  -  CODE  THEN 
FOUND  TRUE 

ELSE 

INDEX  INDEX  ♦  1; 

UNTIL  (INDEX  >  MAXI TEMPOOL)  OR  (FOUND); 

IF  FOUNO  THEN 
SLOT  INDEX 

ELSE 

SLOT  NIL; 

END;  (*  slot  *) 


(*  returns  record  It  of  question  data  file  ») 
(e  no  coll isions  ») 

FUNCTION  HASH; 

BEGIN 
HASH  • ■ 

(CURRTEST  e  MAXI TEMPOOL) 

+  KEY  +  CURRTEST: 

END;  (e  hash  *) 


(*  read  in  a  string  representation  of  an  integer  an8  return  integer  value  *) 
FUNCTION  GETINTSTR; 

VAR  PLACE. 

VALUE. 

I  :  INTEGER; 

PROCTCALL  :  BOOLEAN; 

BEGIN 

FILLCHARILINEBUF [0]  ,4,  ’  *); 
proctcal I  false; 
if  ghost  then 

value  : -  (randoe  eod  1080) 
else 
begin 
REPEAT 

(«  read  a  eaxieue  of  four  digits  *) 

FILLBUF(4. DIGITS  ♦  ICHR (HELPKEY) ] , TRUE) ;  (»  read  in  5  digits  *) 

UNTIL  LINEBUF (0)  <>  ’  '; 

VALUE  0; 

PLACE  1; 

PROCTCALL  FALSE; 

I  3; 

(*  convert  string  to  integer  «) 

REPEAT 

IF  LINEBUF  Cl)  IN  DIGITS  THEN 
BEGIN 

VALUE  VALUE  +  ((ORO(LIfCBUF[IJ)  -  ASCIIOFFSET)  »  PLACE); 

PLACE  PLACE  «  10; 

ENO 

ELSE 

IF  LINEBUF  ID  -  CHR (HELPKEY)  T)CN 
PROCTCALL  TRUE; 

I  I  -  1; 

UNTIL  (I  <  0)  OR  (PROCTCALL); 

F I LLCHAR (LINEBUF [0] ,4, *  ’); 


end; 


(«  if  proctor  uas  called  during  Reu  in  then  flag  it  «) 
IF  PROCTCALL  THEN 
GETINTSTR  NIL 
ELSE 

GETINTSTR  VALUE; 

ENO;  (*  getintstr  *) 
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Ca  does  a  unite  to  graphics  screen  for  char  values  *) 
PROCEDURE  GURITECHR; 

VAR  C  :  STRING: 

BEGIN 

C 

cm  :»  GCHR; 

UNITURITEI3. Ctll. 1.8.12): 

ENO:  (a  guritechr  a) 


(*  does  a  urite  to  graphics  screen  for  integer  values  a) 
PROCEDURE  GURITEINT; 

VAR  X.Z  :  INTEGER; 

DIGITSTR.STR  :  STRING; 

NEGATIVE  :  BOOLEAN; 

C  :  CHAR: 

BEGIN 

NEGATIVE  FALSE; 

Z  GINT; 


BEGIN 

K;.- 

NEGATIVE  TRUE: 

Z  -GINT; 

END; 

(."'a" 

OIGITSTR  s-  * 

STR  “; 

U.I 

REPEAT 

X  2  MOO  18; 

C  CHRIX+48); 

DIGITSTRU)  C: 

STR  CONCAT (DIGITSTR.STR); 

Z  Z  OIV  18; 

UNTIL  Z  <-  8; 

IF  NEGATIVE  THEN 
STR  CONCAT C-\ STR); 

UNI  TURITE(3.STRflI  .LENGTH  (STR)  .8, 121 ; 
ENO;  (a  guriteint  a) 


(*  do  a  urite In  to  the  graphics  screen  *) 
PROCEDURE  GURITELN; 

BEGIN 

MOVETO (8, VLOC-8) ; 

END;  (a  guriteln  a) 


(*  does  a  stall  to  the  graphics  screen  a) 

PROCEDURE  GST ALL: 

BEGIN 

GUR I TESTR ( ’ Press  the  <YES>  Key  ’); 
if  not  ghost  then 

IF  GETCHAR(tCHR(YESKEY)], TRUE, FALSE, TRUE)  -  CHR(YESKEY)  T)€N; 
END;  (a  gstall  a) 

(*  graphics  equivalent  of  the  procedure  getchar  a) 

FUNCTION  GGETCHAR; 

VAR  MASK  :  PACKED  ARRAY  10.. 8)  OF  CHAR; 

M  :  STRING; 

ASCII  s  INTEGER: 

BEGIN 

IF  FLUSHQUEUE  THEN  UNI TCLEAR (2) ; 

REPEAT 

UNI TRE AO (2. MASK. 1); 

ASCII  s-  ORO(MASK (0) ) ; 

CASE  ASCII  OF 


AKEY 

X 

MASK  (0) 

X  - 

’A’; 

BKEY 

X 

MASK  18) 

«  m 

•B’; 

CKEY 

X 

MASK  (81 

X- 

•C’; 

OKEY 

X 

MASK  (81 

X  • 

’D’; 

EKEY 

X 

MASK  (81 

X- 

•E’; 
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END; 

IF  BEEP  AND  NOT  (MASK  (0)  IN  OKSET)  THEN  SOU  AUK; 
UNTIL  MASKI0)  IN  OKSET; 

IF  ECHO  AND  (MASK [0]  IN  ICHR(32)..CHR(12S)1)  AND 
(NOT  (MASK  (8)  IN  CONTROLKEYS) )  THEN 
BEGIN 

M  Cl  1  :  -  MASK  (81 ; 

UNITWRITE(3,N[1],  1,0,12); 

END; 

GGETCHAR  MASK (8); 

END;  (e  ggetchar  e) 


(*  blank  lines  on  the  graphics  screen,  treat  as  if  in  textaode  *) 
PROCEDURE  G8LANKLINES; 

VAR  TOP. 

BOTTOM  :  INTEGER; 

BEGIN 

TOP  191  -  (STARTBLANK  *  8); 

BOTTOM  191  -  ((STARTBLANK  +  BLANKTHISMANY)  e  8); 

VIEUPORT (8, SS9. BOTTOM, TOP) ; 

FILLPORT; 

VIEUPORT (0,559.0, 191); 

GCOTOXY (8.LEAVECURS0R) ; 

END;  (*  gb lank  lines  «) 


(*  read  in  a  string  and  save  in  temporary  buffer,  graphics  version  «) 
PROCEDURE  GFILLBUF; 

VAR  I  :  INTEGER; 

IOCHAR  :  CHAR; 

B  :  STRING; 

BEGIN 

B 

I  :«•  0; 

REPEAT 

IF  I  >  (CHARCNT  -  1)  THEN 

(•  eaxieue  char  typed  in/al lou  only  backspace  or  return  «) 
IOCHAR 

GGETCHAR ( (Of) (ERASEKEY)  ,CHR(YESKEY)1  .TRUE, FALSE, TRUE) 

ELSE 

BEGIN 

(*  get  a  character  *) 

IOCHAR 

GGETCHAR (OKSET  +  (CHR (ERASE KEY) .CHR(YESKEY)) .TRUE, FALSE. TRUE) 
IF  (IOCHAR  IN  OKSET)  AND  (IOCHAR  <>  CHR(YESKEY) )  THEN 
(«  save  visible  character  *) 

BEGIN 

GUR I TECHR( IOCHAR); 

LINEBUF  (I)  i-  IOCHAR; 

I  :«  I  ♦  1; 

END: 

END; 

IF  IOCHAR  -  CHR(ERASEKEY)  THEN 
(«  backspace  key  hit  *) 

BEGIN 

IF  I  -  0  THEN 
SQUAl* 

ELSE 

BEGIN 

(*  eove  cursor  back  one  space  *) 

M0VET0(XL0C-7, YLOC) ; 

I  I  -  1; 

IF  ERASE  THEN 

<«  blank  out  backspaced  character  *) 

BEGIN 

UNITURITE(3,B(1),1,0, 12); 

MOVETO(XLOC-7, YLOC) ; 

LINEBUF  (II  :•  ’ 
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ENO; 

UNTIL  I  KHAR  -  CHR(VESKEY) ; 
ENO;  (*  gf i I Ibuf  *) 


(*  display  question  to  graphics  screen  *) 
PROCEDURE  GOECOOEPRINT; 

VAR  X.Z  :  INTEGER: 

VNAfE ,  FNAflE , 0 I GI TSTR , STR  :  STRING: 

C  :  CHAR; 


(*  reads  the  i ten  text  file  and  displays  the  graphics  *) 
PROCEDURE  OECOOEGRAF; 

VAR  X, 

V. 


XI, VI. 

CURRPTR, 

CURRBLK , 

KTCNT  :  INTEGER: 


(*  reads  a  block  from  disk  into  the  i ten  ascii  buffer  *) 
PROCEDURE  RE AD I TEH8L0CK (UHI CHBLOCK  :  INTEGER): 

VAR  BLOCKSTRANSFERRED  :  INTEGER: 

BAOiO  s  BOOLEAN: 

BEGIN 

BADIO  :-  FALSE; 

RESET!  I TEMTEXT, FNAflE) ; 

BLOCKSTRANSFERRED  :-  BLOCKRE AO (ITEM TEXT, TRIX. ITETBUF.4 
BAOIO  :-  ((BLOCKSTRANSFERRED  <  4)  OR  (I ORE SUL T  <>  B)); 
CLOSE ( I TEnTEXT. LOCK); 

IF  BAOIO  THEN 
BEGIN 
URITELN; 

URITELN; 

URITEC  Block  \  UHICHBLOCK, *  urite  error.  ’>; 
1F1TELN; 

READLN; 

EXIT  (PROGRAM : 

ENO: 

ENO:  (•  readi tenblock  *) 


(*  reads  the  iten  text  file  ft  displays  iten  text  ») 
PROCEDURE  OECOOEPRINT; 

VAR  X. 

Y. 

BYTECNT, 

CHARCOOE  :  INTEGER; 


(e  return  the  next  code  in  ascii  file  *) 

FUNCTION  BUFCOOE  :  INTEGER; 

BEGIN 

BUFCOOE  TRIX. ASCI IBUF ICURRPTR] ; 

CURRPTR  CURRPTR  ♦  1; 

IF  CURRPTR  >  2847  THEN 

(»  end  of  block/get  next  block  and  reset  byte  ptr 
BEGIN  (1) 

CURRBLK  CURR8LK  +  4; 

READ  I TEflBLKK  (CURRBLK) ; 

CURRPTR  8; 

ENO;  (1) 

ENO;  (n  bufcode  *) 


BEGIN  («  decode  print  *) 

(si  read  bytes  fron  the  buffer  *> 
REPEAT 


UHICHBLOCK); 
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(«  get  char  froe  block  buffer  «) 

CHARCOOE  :■  bufcodei 

CASE  CHARCOOE  OF 

GOTOFLAG  :  BEGIN  (1)  (*  Move  cursor  *) 

(«  next  tuo  bytes  after  flag  are  xtg  coord  *) 
X  BUFCOOE; 

Y  BUFCOOE: 

BYTECNT  BUFCOOE: 

GGOTOXY(X.Y): 

END;  ID 
END  I  TEfl  :  : 

END; 

IF  (CHARCOOE  >-  32)  AND  (CHARCOOE  <-  126)  THEN 
GUR1 TECHR (CHR (CHARCOOE) ) : 

UNTIL  CHARCOOE  -  END I  TEH;  (e  until  end  flag  hit  «) 

ENO;  («  decodeprint  «) 


BEGIN  (e  decode  graf  «) 

READ I TEMBLOCK (0) ; 

CURR8LK  :•  8; 

CURRPTR  8: 


(«  decode  the  xlines  *) 

REPEAT 

IF  CURRPTR  >  1821  THEN 

(a  end  of  block/get  new  block  «) 

BEGIN 

CURR8LX  s-  CURRBLK  +  4; 

RE ADI TEfBLOCK (CURRBLK) ; 

CURRPTR  8: 

END; 

X  TRIX.  I  TEfBUF  (CURRPTR! » 

IF  X  >-  8  THEN 
BEGIN 

Y  TRIX.  I  TEfBUF  (CURRPTR  ♦  1): 
nOYETO(X.Y): 

OOTCNT  TRIX. I TEOBUF (CURRPTR  ♦  21: 
LINEREL (00TCNT.8) : 

CURRPTR  CURRPTR  ♦  3; 

ENO: 

UNTIL  X  <  8: 

CURRPTR  CURRPTR  ♦  1: 

(a  decode  the  ulines  «) 

REPEAT 

IF  CURRPTR  >  1821  THEN 

(e  end  of  block/get  new  block  e) 

BEGIN 

CURRBLK  CURRBLK  ♦  4: 

READ  I TEIBLOCK  (CURRBLK) : 

CURRPTR  8: 

END: 

X  TRIX.  I  TEfBUF  (CURRPTR! : 

IF  X  »-  8  T)€N 
BEGIN 

Y  TRIX.  I  TEfBUF  (CURRPTR  ♦  1); 
HOVETO(X.Y) ; 

OOTCNT  TRIX.  I  TEfBUF  (CURRPTR  ♦  2): 
LINEREL (8. OOTCNT); 

CURRPTR  :.  CURRPTR  ♦  3; 
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UNTIL  X  <  8; 

CURRPTR  CURRPTR  ♦  It 


(«  decode  the  diagonals  e) 

REPEAT 

IF  CURRPTR  >  1020  THEN 

(*  end  of  block/get  new  block  *) 

BEGIN 

CURRBLK  CURRBLK  +  4; 

REA0I TENBLOCK  (CURRBLIO  s 
CURRPTR  0; 

END: 

X  TRIX.  ITEfBUF  [CURRPTR] ; 

IF  X  >-  0  THEN 
BEGIN 

Y  :-  TRIX.  I  TEflBUF  [CURRPTR  +  lit 
XI  :-  TRIX. I TEH8UF [CURRPTR  +  2) 5 
Y1  TRIX. I TErtBUF [CURRPTR  +  3): 
nOVETO(X.Y); 

LINETO  (XI , Yl) ; 

CURRPTR  :-  CURRPTR  ♦  4; 

END; 

UNTIL  X  <  0; 

CURRPTR  :-  CURRPTR  ♦  1; 

(e  decode  the  dots  «) 

REPEAT 

IF  CURRPTR  >  1022  THEN 

(«  end  of  block/get  neu  block  *) 

BEGIN 

CURRBLK  :-  CURRBLK  ♦  4, 

READ I TEHBLOCK (CURRBLK) j 
CURRPTR  0; 

END; 

X  :-  TRIX.  ITEOBUF  [CURRPTR] ; 

IF  X  >-  0  TEEN 
BEGIN 

Y  TRIX.  I TETWJF  (CURRPTR  ♦  1J, 
OOTAT(X.Y); 

CURRPTR  :-  CURRPTR  ♦  2; 

END; 

UNTIL  X  <  0; 

CURRPTR  CURRPTR  ♦  1; 

CURRPTR  :-  CURRPTR  e  2; 

DECOOEPRINT; 

END;  (*  decodegraf  *) 


BEGIN 

FILLPORT; 

GRAFIXON; 

DIGITSTR 
STR  •*; 

2  t-  ITEHCOOE; 

REPEAT 

X  Z  MOO  10s 

C  CHR (X+48) : 

OIGITSTR (11  C; 

STR  CONCAT (OIGITSTR, STR) s 
Z  Z  DIV  10; 

UNTIL  Z  <-  0s 

OIGITSTR (13  :-  CHR (SUBTESTNUH+6S) j 
C  :-  OIGITSTR(l)  5 
IF  SAOPLEQUESTION  THEN 
BEGIN 

FNArtE  s-  CONCAT (VCATFOTO/’  .OIGITSTR,  'OIR/G'  .OIGITSTR,  ’SQ'  ,STR,  * .FOTO’ ); 
GLOAO (FNAHE ) s 
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END 

ELSE 

IF  ITEMINFO.QUMMY1  -  COMPRESSED  THEN 
BEGIN 

FNAME  CONCATC/CATFOTO/’  .OIGI TSTR,  ’DIR/G*  .OIGITSTR.STR,  *  .OATA’ )  ; 
OECOOEGRAFj 
END 
ELSE 
BEGIN 

FNAME  CONCAT  C/CATFOTO/* , OIGI  TSTR.  ’DIR/G*  .OIGI  TSTR.  ’Q’  ,STR,  ’  .FOTO’ ) : 

GLO AD (FNAME )j 
END: 

ENO;  (*  gdecodeprint  *) 


(*  read  in  a  string  representation  of  an  integer  an6  return  integer  value  •) 
FUNCTION  GGETINTSTR: 

VAR  PLACE. 

VALUE. 

I  :  INTEGER: 

PROCTCALL  :  BOOLEAN; 

BEGIN 

FILLCHAR(LINEBUF  10] ,4, '  ’)} 
proctcall  :•  false; 
i f  ghost  then 

value  :•  (randoe  mod  1980) 
else 
begin 

REPEAT 

(«  read  a  eaxieue  of  four  digits  *) 

GFILLBUF (4. DIGITS  ♦  (CHR (HELPKE Y) 3 , TRUE) ;  («  read  in  5  digits  *) 

UNTIL  LINEBUFI0)  : 

VALUE  9: 

PLACE  1: 

PROCTCALL  FALSE: 

I  3: 


(*  convert  string  to  integer  *) 

REPEAT 

IF  LINEBUFII]  IN  DIGITS  THEN 
BEGIN 

VALUE  VALUE  ♦  ( (ORO(LINEBUF  II ) )  -  ASCI  I  OFFSET)  s  PLACE): 
PLACE  PLACE  si  10; 

ENO 

ELSE 

IF  LINEBUFII]  -  CHR  (HELPKE  Y)  THEN 
PROCTCALL  TRUE: 

I  I  -  1; 

UNTIL  (I  <  0)  OR  (PROCTCALL); 

FILLCHAR(LINEBUF 10) ,4, ’  ’): 
end; 


(«  if  proctor  uas  called  during  Key  in  then  flag  It  •) 
IF  PROCTCALL  THEN 
GGETINTSTR  NIL 
ELSE 

GGETINTSTR  VALUE; 

EM);  (»  ggetintstr  «) 


(•  initializes  the  cat  systee  «) 

PROCEDURE  INITCATj 
TYPE  DATE  -  RECORO 
MONTH. 

OAY, 

YEAR  ;  PACKED  ARRAY  10.. 1)  OF  CHAR; 


Dec  7  17:43  1983  ADMIN.01R/A.1UTL.TEXT  <  Utilities)  Page  15 


VAR  CATCATE  :  DATE: 

F1LECATE  :  FILE  OF  OATE; 

DA TEOK  :  BOOLEAN: 

BEGIN 

PAGE  (OUTPUT); 
trace  :«  false; 

DIGITS  [,0\.,9,1; 

CONTROLKEYS  [CHR (HELPKEY) ,CHR (NOKEY) .CHR(YESKEY) ,CHR(ERASEKEY)1 ; 

KEYPAD  DIGITS  +  CONTROLKEYS; 

RANDOfl  I ZE ; 

GRAF IX  FALSE; 

IN1TFORGRAFIX; 

FORTYCOLUMN  :•  TRUE; 

REVERSEVIDEO  TRUE; 

OEMOFLAG  TRUE; 

SKIP  FALSE; 

SKIPFAM: -  FALSE; 
ghost  :•  false; 

ABLOOP  niNGTHETA; 

RIGHT  TRUE; 

TEXTON; 

TEXT40T1OOE; 

INVERSE; 

(*  get  sgstea  set  up/configuration  *) 

LOAOPARAitS; 

(«  get  the  sgstea  date  •) 

RESET (FI  LEGATE. 'CATOATAsCATDATE.OATA* ) ; 

SEEK (FI  LEGATE. 0) ; 

GET  (FILEDATE) ; 

CATDATE  FILEDATE''; 

OATEOK  FALSE; 

REPEAT 

PAGE  (OUTPUT); 

GOTOXY  (1,9); 

URITELNCThe  CAT  Sgstea  Date  is  ’  .CATDATE. H0NTH,  ’  /  \ 

CATDATE. DAY.*  /  \ 

CATDATE.  YEAR); 

URITELN; 

URITELNC  Do  gou  uant  to  change  the  date  V ); 

URITEC  Press  <YES>  or  <NO>  :  *); 

IF  (GETCHAR  ( (CHR  (YESKEY)  .(>«  (NOKEY)  1 .  TRUE,  TRUE.  TRUE)  -  CHR  (NOKEY))  TFCN 
OATEOK  ;-  TRUE 
ELSE 
BEGIN 
URITELN; 

URITELN; 

URITE(*  Enter  aonth,  then  press  <YES>  :  ’); 

F I LLCHAR (L I NEBUF [0] , 2,  *  *); 

FILLBUF (2.DIGI TS, TRIE) ; 

MOVELEFT  (LI NEBUF  [0]  .CATOATE. MONTH  10)  ,2) ; 

URITELN; 

URITEC  Enter  the  dau,  then  press  <YES>  :  *); 

F I  LLCHAR  (LI  NEBUF  [0),  2,*  *); 

FILLBUF (2. DIGITS, TRUE); 

MOVELEFT  (L I  NEBUF  [01 ,  CATDATE .  DAY  (01 , 2) ; 

URITELN: 

URITEC  Enter  the  gear,  then  press  <YES>  :  *); 

FILLCHAR (LINEBUF [01,2, ’  ’); 

FILLBUF  (2,DIGITS,TRUE); 

MOVELEFT  (LINEBUF  [01  .CATDATE.  YEAR  (0) ,  2) ; 

END; 

UNTIL  DATEOK; 

SEEK (FILEOATE.0) ; 

FILEDATE''  CATDATE; 

PUT (FILEDATE); 

CLOSE (FILEDATE, LOCK); 

MOVELEFT (CATDATE. MONTH [03 .SYSTEMOATE [0] ,2) ; 

MOVELEFT (CATDATE. OAY  (0) .SYSTEMOATE [21 ,2) ; 

MOVELEFT  (CATDATE .  YEAR  [03  .SYSTEMOATE  [41 . 2) ; 
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(» 


file) 


Volume 

Volume 


&) 

*) 

:  TFILES  *) 

:  CATDATA  *) 

*) 

assessesoseeaeacs) 

NPROC  ») 


(*  Read  in  a  string  and  save  in  a  temporary  buffer  can  specify  maximum  char  «) 
(*  you  can  type  in.  'Help'  key  ia  'live*.  If  someone  types  the  help-key  in  ») 
(*  any  part  of  string,  control  passed  to  the  proctor  and  code  is  passed  back  *) 
(*  to  control  further  flow.  *) 


PROCEDURE  PFILLBUF: 

VAR  I. 

FILLCOOE  :  INTEGER; 

IDCHAR  :  CHAR; 

BEGIN 

I  ;■  0;  (*  initialize  count  of  characters  ») 

REPEAT 

IF  1  >  (CHARCNT-1) 

THEN 

BEGIN  111 

(*  maximum  char  typed  in/allou  only  backspace  or  return  *) 

IDCHAR 

GETCHAR ( ICHR (HELPKEY)  ,CHR (ERASEKEY) . CHR ( YESKEY) ) ,  TRUE, FALSE, TRUE) ; 


(*  helpkey  pressed  «) 

IF  IDCHAR  -  CHR (HELPKEY) 
THEN 


BEGIN  (2) 

FILLCOOE  1; 

CALLPROCT (F I LLFROM, FILLCOOE) 5 


(e  pass  back  negative  floucoda  if  proctor  called  •) 
FFLOU  s-  -FILLCOOE t 
EXIT  (PFILLBUF); 

END;  (2) 

END  (II 

ELSE 

BEGIN  (3) 

(*  get  a  character  *) 

IDCHAR 

GETCHAR  (OKSET  +  [CHR  (HELPKEY),  CHR  (YESKEY), 

Ofl(ERASEKEY) I ,  TRUE,  TRUE,  TRUE); 

IF  IDCHAR  -  Of) (HELPKEY) 

THEN 

BEGIN  (41 

FILLCOOE  1.  1; 

CALLPROCT (FI LLFROM, FILLCOOE) ; 


(*  passback  negative  floucode  to  signal  proctor  call  *) 
FFLOU  1-  -FILLCOOE; 

EX IT (PFILLBUF); 

EfC;  (4) 

IF  (I0CHAR  IN  OKSET)  AND  (IDCHAR  0  CHR (YESKEY)) 

T)CN 

(«  save  visible  character  *) 

BEGIN  (51 

LINEBUFII)  IDCHAR; 

I  :•  I  +  1; 

EM);  (51 
END;  (3) 

IF  IDCHAR  -  CHR(ERASEKEY) 

THEN 

(*  back  space  key  hit  *) 

BEGIN  (6) 

IF  I  -  0 

THEN  SQUAWK  (*  no  character  to  backspace  over  *) 

ELSE 

BEGIN  (71 

miTE(CHKLARflOU) ) ;  (*  move  cursor  back  one  e) 
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I  I  -  1:  (*  adjust  string  buffer  location  *) 

IF  ERASE 
THEN 

(«  blank  out  backspaced  character  e) 

BEGIN  (8) 

WRITE!*  ’ )  t 

UR1 TE (CHR (LARROU) ) ; 

LINEBUF  III  *  *; 

END;  18) 

ENO:  171 
ENO;  (SI 

UNTIL  IDCHAR  -  CHR(YESKEY) ; 

ENO:  (*  pf i I Ibuf  «) 

( - - - - - } 

(*  Display  a  eessage/uait  for  a  keystroke.  Helpkey  is  ’live*.  Call  proctor  *) 
(«  i f  pressed.  *) 

PROCEDURE  PSTALL; 

VAR  STALLCHAR  :  CHAR; 

STALLCOOE  :  INTEGER: 

BEGIN 

WRITE!*  Press  the  <YES>  key  ’): 

IF  NOT  GHOST 
THEN 

BEGIN  III 
STALLCHAR 

GETCHAR(  [CHR  (HELPKEY). OR  (YESKEY), OR  (ESC)).  TRUE.FALSE,  TRUE); 

IF  STALLCHAR  -  CHR (ESC) 

THEN 

BEGIN  (2) 

SETCHA  INC  CATDATAs  CATPROJECT  * ) : 

TEXT80MOOE; 

EXIT(PROGRAn): 

END;  (2) 

IF  STALLCHAR  -  CHR (HELPKEY) 

THEN 

BEGIN  (3) 

STALLCOOE  1* 

C ALL PROCTOR (STALLFROM, STALLCOOE) ; 


(«  pass  back  the  negative  of  the  flou  code  to  «) 

(«  signal  that  the  help  key  was  pressed.  •) 

SFLOU  -STALLCOOE: 

END:  (3) 

ENO;  (1) 

ENO:  (e  stall  «) 

I - - ) 


(«  Get  the  character  response  of  a  Multiple  choice  question  «) 
FUNCTION  GETCHRANSUER; 

VAR  CHARSELECT  :  CHAR; 

OK  :  BOOLEAN; 

GCOOE  :  INTEGER: 

PCRECNUM:  BOOLEAN; 

BEGIN 

OK  FALSE; 

PCRECNUM  (CURRTEST-4)  OR  (CURRTEST-6) ; 

IF  PCRECNUM 
THEN  GOTOXY(8.23) 

ELSE 

GOTOXY(0,21); 

REPEAT 

REPEAT 

URITEC  Pleass  enter  your  answer  :  ’); 

IF  GHOST  THEN 
BEGIN 

IF  GHOSTFLOU  -  OLD 
THEN 

CHARSELECT  GHOSTKEY 
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ELSE 

BEGIN 

IF  GHOSTFLOU  -  AUTO  THEN 
GTFETA  ABLOOP; 

CHARSELECT  NEUGHOSTKEY  (GTHETA)  ; 

ENO: 

ENO 

ELSE 

IF  CURRSTRAT  -  TIHED  THEN  («  dont  flush  the  buffer  or  beep  «) 
CHARSELECT  GGETCHARf  tlTEMINFO.LOWANSUER. .  I  TEI1INFQ.H1GHANSUER, 

CWT(HELPKEY)] ,  FALSE, FALSE,  FALSE) 

ELSE 

CHARSELECT  CGETCHARf II TEfllNFO. LOUANSUER. . 1 TErtlNFO.HIGHANSUER. 

CHR(HELPKEY)J.  TRUE,  FALSE,  TRUE); 

IF  CHARSELECT  -  CHR (HELPKEY) 

THEN 

BEGIN  111 
GCOOE  1; 

CALLPROCTOR  (CALLEOFROtl,  GCOOE) ; 

(«  pass  back  negative  flou  code  if  proctor  was  called  *) 

PCOOE  -GCOOE; 

EXI T (GETCHRANSUER) ; 

ENO;  111 
IF  PCRECNUH  THEN 
BLANKLINES (23,1,23) 

ELSE 

BLANKLINES (21 ,1,21); 

UNTIL  CHARSELECT  <>  CHR(HELPKEY) ; 

IF  PCRECNUT1 
THEN 
BEGIN 

URITEC  Your  response  uas  ’.CHARSELECT); 

URITE(*  Oo  uou  uant  this  ansuer?  *); 

END 

ELSE 

BEGIN 

UR I TELN ( *  Your  response  uae  ' .CHARSELECT) ; 

URITELN; 

URITEC  Oo  you  uant  this  ansuer?  *); 

ENO; 

IF  GHOST 
THEN  OK  s-  TRUE 
ELSE 

BEGIN  (2) 

IF  GETCHARI  (CHR  (YESKEY) ,  Of)  (NOKEY))  ,  TRUE,  FALSE.  TRUE)  -  CHR  (NOKEY) 
THEN 
BEGIN 

IF  PCRECNUfl 

THEN  BLANKLI)€S(23,1,23) 
asE 

BLAMCL I NES  (21, 3, 21); 

END 

aSE  OK  TRUE; 

ENO;  (2) 

UNTIL  OK; 

GETCHRANSUER  CHARSaECT; 

ENO;  (*  getchransuer  e) 


(*  get  the  integer  response  to  a  question  *) 
FUNCTION  GETINTANSUER; 

VAR  GCOOE, 

INTSELECT  :  INTEGER; 

OK  :  BOOLEAN; 

BEGIN  (Getintansuer) 

OK  FALSE; 

GOTOXY (0,21) ; 

REPEAT 

URITEC  Please  enter  your  ansuer  ;  ’); 
INTSELECT  GETINTSTR; 

IF  INTSELECT  <  0 
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THEN 

BEGIN  (1) 

GCOOE  1: 

CALLPROCTOR (CALLEDFROM.GCOOE) : 

(*  pass  back  negative  floucoda  to  signal  proctor  call  ») 
PCOOE  -GCOOE: 

EXIT (GETINTANSUER) : 

END:  (1) 

BLANKL I NES (21,1,21): 

UNTIL  INTSELECT  >-  0; 

GETINTANSUER  INTSELECT; 

END;  (*  getintanswer  «) 


(*  Get  seven  responses  at  once,  this  is  for  the  subtest  ‘coding  speed"  e) 
(*  and  others.  «) 

PROCEDURE  GETSEVENANSUERS; 

VAR  ONECHAR  :  CHAR; 

OK  :  BOOLEAN: 

ETIME, 

GCOOE. 

I  :  INTEGER: 

STARTCLOCK. 

STOPCLOCK  :  REAL; 

BEGIN 
I  0; 

ETIME  0; 

REPEAT 

I  I  +  1, 

OK  FALSE: 

BLANKLINES (21, 3, 21) ; 

STARTCLOCK  :-  TIME; 

REPEAT 

REPEAT 

URITEC  Enter  your  answer  for  question  *  .QSTNUM+I-1,  ’  :  ’); 

IF  GHOST  THEN 
ONECHAR  GHOSTKEY 
ELSE 

IF  CURRSTRAT  •  TIHEO  THEN  (•  dont  flush  buffer  •) 

ONECHAR  GETCHAR( (I TEMINFO.LOUANSUER. . ITEM INFO. HI GHANSttR, 

OFCI-ELPKEY) ) ,  FALSE.  FALSE,  FALSE) 

ELSE 

ONECHAR  i-  GETCHAR<  (I TEMINFO.LOUANSUER.. I TEMINFO.HIGHANSUER. 

CHR (HELPKEY) ) ,  TRUE.  FALSE,  TRUE), 

IF  ONECHAR  -  OH  (HELPKEY) 

THEN 

BEGIN  III 
GCOOE  1, 

CALLPROCTOR  (CALLEOFROM, GCOOE); 

PCOOE  i-  -GCOOE, 

(*  Exit  if  leaving  subtest  and  not  returning  •) 

(*  or  if  iust  answering  a  saeple.  •) 

IF  ((GCOOE  >  3)  AND  (GCOOE  <>  6))  OR 
((GCOOE  -  B)  AND  (SAMPLEQUESTION) ) 

THEN  EXIT (GETSEVENANSUERS): 

(*  Else,  display  the  question  again  and  exaeinee  e) 

(*  must  answer  it  before  leaving.  •) 

DECOOEPR I NT (G8L0CK , GPTR) , 

ENO:  (1) 

BLANKLINES (21, 1,21); 

UNTIL  ONECHAR  <>  CHR (HELPKEY), 

URITELNC  Your  response  for  question  •.QSTNUM+I-l,’  was  \ ONECHAR), 
URITELN; 

URITEC  Do  you  want  this  answer?  '); 

IF  GHOST 
THEN  OK  :-  TRUE 
ELSE 

BEGIN  (2) 

IF  GETCHAR( (CHR (YESKEY), CHR (NOKEY)) ,  FALSE.  FALSE,  FALSE)  - 
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OR  (NOKEY) 

THEN  BLAfKLINES(21,3,21> 

ELSE  OK  TRUE: 

END;  (2) 

UNTIL  OK: 

A7II]  :•  ONECHAR;  (*  a7  is  a  variable  paraaeter  *) 

IF  NOT  SAJ1PLEQUESTION  THEN 
BEGIN  (3) 

STOPCLOCK  TIME: 

ETIME  ETIME  ♦  (TRUNC(ABS(STOPaOCK  -  STARTCLOCK) ) )  j 
IF  (ELASPEDTIME  +  ETIME)  >-  MAXTIHE 
THEN  TIMEOUT  TRUE; 

END;  13) 

UNTIL  (I  -  QSTCNT)  OR  (TIMEOUT); 

IF  NOT  SAMPLEQUESTION  THEN  PAGE (OUTPUT) ; 


(a  pass  back  U  of  questions  answered  a) 

IF  TIMEOUT 

THEN  QACNT  :•  0  (a  throw  away  all  questions  if  tiseout  occured  *) 
ELSE  QACNT  I: 

PCOOE  : •  1;  (*  signal  that  answer  is  valid  e) 

END;  (*  getsevenansuers  *) 


{ . . . . . . . . | 

(«  Read  a  string  and  save  in  a  temporary  buffer.  Can  specify  eaxieua  char  at) 
(*  you  can  type  in.  Help  key  is  ‘live’.  If  soaeone  types  helpkey  in  any  «) 
(a  part  of  string,  cotrol  passed  to  proctor  and  code  is  passed  back  to  a) 


(a  control  further  flow.  a) 

PROCEDURE  GPFILLBUF; 

VAR  I. 

FILLCOOE  :  INTEGER; 

IOCHAR  :  CHAR; 

B  :  STRING; 

BEGIN 

B 

I  8;  (a  initialize  count  of  characters  a) 

REPEAT 

IF  I  >  (CHARCNT-1) 

THEN 

BEGIN  111 

(a  aaxieue  char  typed  in/altow  only  backspace  or  return  a) 

IOCHAR  :• 

GETCHAR ( ICHR (HELPKEY) ,CHR (ERASEKEY) , CHR  ( YESKEY) 1 . TRUE. FALSE. TRUE) t 

(a  helpkey  pressed  a) 

IF  IOCHAR  .  CHR (HELPKEY) 

THEN 

BEGIN  (2) 

FILLCOOE  1; 

CALLPROCT (F I LLFROM, FILLCOOE) ; 

(a  pass  back  negative  floucode  if  proctor  called  a) 

FFLOU  -FILLCOOE; 

EXIT (GPFILLBUF); 

END;  (2) 

END  (1) 

ELSE 

BEGIN  (3) 

(a  get  a  character  a) 

IOCHAR 

GETCHAR (OK SET  +  (CHR (HELPKEY) .CHR (YESKEY) , 

CHR (ERASEKEY)l,  TRUE,  FALSE,  TRUE); 

IF  IOCHAR  -  CHR (HELPKEY) 

THEN 

BEGIN  14) 

FILLCOOE  1; 

CALLPROCT (FILLFROM, FILLCOOE) ; 

(a  passback  negative  floucode  to  signal  proctor  call  a) 

FFLOU  -FILLCOOE; 
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EXIT(GPFILLBUF) ; 

END:  <41 

IF  (IDCHAR  IN  OKSET)  AND  (IOCHAR  <>  CHR(YESKEY) ) 

THEN 

(s  save  visible  character  s) 

BEGIN  IS) 

GURITECHRt IOCHAR); 

LINEBUF (II  :•  IOCHAR; 

I  I  +  It 
END;  (5) 

END;  (3) 

IF  IOCHAR  -  CHR(ERASEKEY) 

THEN 

(*  back  space  keg  hits) 

BEGIN  16) 

IF  I  -  8 

THEN  SQUAUK  (s  no  character  to  backspace  over  s) 

ELSE 

BEGIN  17) 

MOVETO(XLOC-7, YLOC) ;  (s  sove  cursor  back  one  s) 

I  :  —  I  -  1 ;  (s  adjust  string  buffer  location  s) 

IF  ERASE 
THEN 

(s  blank  out  backspaced  character  s) 

BEGIN  18) 

UNITURITEO.BIl)  ,1,8,12): 

NOVETO (XLOC-7, YLOC) ; 

LINEBUF  ID  *  ’; 

END:  (8) 

END;  (7) 

END;  IB) 

UNTIL  IOCHAR  -  CHRIYESKEY); 

END;  (s  gpf i I Ibuf  s) 


(s  get  the  character  response  of  a  Multiple  choice  question  s) 

FUNCTION  GGETORANSUERi 
VAR  CHARSELECT  :  CHAR; 

OK  :  BOOLEAN: 

GCOOE  :  INTEGER; 

BEGIN 

OK  FALSE: 

GGOTOXY(e.21): 

REPEAT 

REPEAT 

GURITESTRC  Please  enter  gour  answer  :  ’); 

IF  GHOST 
THEN 
BEGIN 

IF  GHOSTFLOU  -  OLD 

TV€N  CHARSELECT  :-  GHOSTKEY 

asE 

BEGIN 

IF  GHOSTFLOU  -  AUTO 
T)CN  GTHETAi  -ABLOOP; 

CHARSELECT:-  NEUGHOSTKEY IGTHETA) ; 

END; 

END 

ELSE  CHARSELECT  GETCHARl  II TEM1NF0.L0UANSUER. . ITEMINFO.HIGHANSUER, 

CFRIHELPKEY)] ,  TRUE,  FALSE,  TRUE); 

IF  CHARSELECT  -  CHR(HELPKEY) 

THEN 

BEGIN  (1) 

GCOOE  :•  1; 

C ALLPROCTOR ICALLEDFROM , GCOOE ) ; 

(s  pass  back  negative  flou  cods  if  proctor  uas  called  s) 

PCOOE  -GCOOE; 

EXIT (GGETCHRANSUER) ; 

ENO;  111 

G8LANKL I NES (21,1,21); 

UNTIL  CHARSELECT  <>  CHR(HELPKEY) ; 
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GLRI  TESTR  ('  Your  response  uas  ’)j 
GUR I TECHR  (CHARSELECT ) i 
GURITELN; 

GURITELN; 

GUR I TESTR ( '  Do  you  want  this  answer?  *); 

IF  GHOST 
THEN  OK  TRUE 

FI  Qp 

BEGIN  (2) 

IF  GGETCHARt  ICHR(YESKEY) ,CHR (NOKEY) 1 ,  TRUE.  FALSE.  TRUE)  - 

CHR (NOKEY) 

THEN  GBL ANKL I NES ( 21 . 3 , 21 ) 

ELSE  OK  TRUE; 

EMD;  12) 

UNTIL  OK; 

GGETCHRANSIER  CHARSELECT; 


END;  (*  ggetchranswer  «) 

I - - - - - ) 


(*  get  the  integer  response  to  a  question  *) 

FUNCTION  GGETINTANSUER; 

VAR  GCOOE, 

INTSELECT  s  INTEGER; 

OK  :  BOOLEAN; 

BEGIN 

OK  FALSE; 

GGOTOXY (0.21) ; 

REPEAT 

GURITESTRt’  Please  enter  your  answer  :  ’); 

INTSELECT  GGETINTSTR; 

IF  INTSELECT  <  0 
THEN 

BEGIN  fl) 

GCOOE  It 

C  ALLPROCTOR  (CALLEOFROT1 .  GCOOE ) ; 

(«  pass  back  negative  floucode  to  signal  proctor  call  •) 
PCOOE  -GCOOE; 

EXIT  (GGETINTANSIER) ; 

END;  (1) 

GBL ANKL I NES (21. 1 ,21) : 

UNTIL  INTSELECT  >-  0; 

GGETINTANSUER  INTSELECT; 


END;  (*  gget intanswer  «) 

I - - - ) 


(*  get  seven  responses  at  once,  this  ie  for  the  subtest  ‘coding  speed*  «) 
(«  and  others.  *) 

PROCEDURE  GGETSEVENANSUERS; 

VAR  ONECHAR  :  CHAR; 

OK  s  BOOLEAN; 

ETIHE, 

GCOOE, 

I  :  INTEGER; 

STARTCLOCK, 

STOPCLOCK  :  REAL; 

BEGIN 
I  0; 

ETIHE  ;-  0; 

REPEAT 

I  I  +  1; 

OK  FALSE; 

GBLANKLINES (21,3,21) ; 

STARTCLXK  TIME; 

REPEAT 

REPEAT 

GURI TESTR ( ’  Enter  your  answer  for  question  ’); 

GUR1 TEINT (QSTNUH+I-1) ; 

G1WI TESTR (’  :  *); 

IF  GHOST 

THEN  ONECHAR  t-  GHOSTKEY 
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ELSE  ONECHAR  «-  GGETCHARI  [ITEM INFO.LOUANSUER. . ITEM INFO. HIGHANSUER, 

CHR(HELPKEY)] ,  TRUE,  FALSE.  TRUE); 

IF  ONECHAR  -  CHR(HELPKEY) 

THEN 

BEGIN  (11 
GCOOE  1; 

CALLPROCTOR (CALLEOFROM. GCOOE) ; 

PC ODE  t-  -GCOOE; 

(*  exit  if  leaving  subtest  and  not  returning  «) 

(a  or  if  we  are  just  ansuering  a  aaaple.  •) 

IF  (GCOOE  >  3)  AND  (GCOOE  <>  6) 

THEN  EX I T (GGE  TSE VENANSUERS ) ; 

(a  else  display  the  question  again  and  exaeinee  •) 

(*  must  answer  it  before  leaving.  a) 

GOECOOEPRINT  (GTEST.G1 TEM) ; 

END:  (11 

G8LANKL I NES (21,1,21); 

UNTIL  ONECHAR  <>  CHR (HELPKEY); 

GURITESTRC  Your  response  for  question  ’); 

GUR1TEINT (QSTNUM+I -1) ; 

GURITESTRC  was  *); 

GURITECIE  (ONECHAR); 

GURITELN; 

GURITELN; 

GURITESTRC  Oo  you  want  this  answer?  *); 

IF  GHOST 
THEN  OK  TRUE 
ELSE 

BEGIN  (2) 

IF  GGETCHAR( [CHR (YESKEYl.CW) (NOKEY) 1,  TRUE.  FALSE,  TRUE)  - 

CHR (NOKEY) 

THEN  GBLANKLINES(21,3,21) 

ELSE  OK  TRUE; 

END;  (21 
UNTIL  OK; 

A7(I1  ONECHAR:  (*  a7  ie  a  variable  paraeeter  *) 

IF  NOT  SATFLEQUEST I  ON 
THEN 

BEGIN  (31 

STOPCLOCK  TIME; 

ETIME  i-  ETIME  +  ( TRUNC ( ABS (STOPaOCK  -  STARTCLOCK) ) ) , 

IF  (ELASPEOTIME  ♦  ETIME)  >-  MAX T I  ft 
THEN  TIMEOUT  TRUE; 

EM):  (3) 

UNTIL  (I  -  QSTCNT)  OR  (TIMEOUT): 

(*  pass  back  8  of  questions  answered  e) 

IF  TIMEOUT 

THEN  QACNT  :•  0  (e  throw  away  all  questions  if  tiaeout  oc cured  e) 

ELSE  QACNT  I; 

PCQOE  «-  1;  (e  signal  that  answer  is  valid  e) 

END;  (a  ggetsevenanswers  a) 


(*  this  procedure  writes  out  the  examinee  records  in  a  coded  text  file  *) 
(*  in  uhich  redundant  text  is  removed.  It  is  used  by  another  program  *) 
(*  which  expects  text  to  be  in  a  certain  format,  this  way  it  can  do  e) 
(*  a  mass  analysis  of  the  data.  *) 

SEGMENT  PROCEDURE  E SUMMARY; 

CONST  (*  examinee  personal  data  file  *) 

PINFONAME  -  ’CATDATA:EPDATA.OATA' s 

TYPE  (*  examinee  personal  data  record  *) 

PINFORE C  -  RECORD 

LASTNAME  :  PACKED  ARRAY [0.. 14)  OF  CHAR; 

FIRSTNAME  :  PACKED  ARRAY [0.. 11 J  OF  CHAR; 

MINITIAL  ;  CHAR; 

CURRADORESS. 

HOMEOFREC  :  PACKED  ARRAY  10.. 1]  OF  CHAR; 

CITIZENSHIP  :  PACKED  ARRAY  10. .3)  OF  CHAR; 

SEX  :  CHAR; 

POPGROUP  :  PACKEO  ARRAY  [0.. 4]  OF  CHAR; 

ETHNIC  :  PACKED  ARRAY  [0. . II  OF  CHAR; 

MARITAL  :  CHAR; 

DEPENDANTS  ;  PACKED  ARRAY  [0.. II  OF  CHAR; 

BIRTHOATE  :  PACKEO  ARRAY  10.. 7]  OF  CHAR; 

EDUCATION  :  PACKEO  ARRAY  10.. 2)  OF  CHAR; 

TESTID  ;  PACKEO  ARRAY [0. . 21  OF  CHAR; 

AFOT  :  PACKEO  ARRAY  10..  13  OF  CHAR; 

ASVAB  :  PACKED  ARRAY [0. . 431  OF  CHAR; 

ENLISTDATE. 

ACTSERDATE  ;  PACKEO  ARRAY [0.. 7]  OF  CHAR; 

ENL  ;  PACKEO  ARRAY  [0. . 41  OF  CHAR; 

AFEES  ;  PACKED  ARRAY [0..1J  OF  CHAR; 

BOS  ;  PACKED  ARRAY  10.. II  OF  CHAR; 

POST ASVAB  ;  PACKED  ARRAY  10.. 433  OF  CHAR; 

STESTOROER  ;  PACKED  ARRAY [0. . 593  OF  CHAR; 

END; 


VAR  TNUM. 

MAXLINES. 

OUM, 

LINESOUT, 

TESTCOUNT. 

K. 

RSLOT, 

MINUTES, 

SECONDS  ;  INTEGER; 


TNAME, 

ENAME, 

FNAME  :  STRING; 

SUMT1ME, 

SAVETIME  :  REAL; 

(«  examinee  personal  data  •) 
PINFO  :  PINFOREC; 

PINFOFILE  :  FILE  OF  PINFOREC; 
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(*  display  examinee  personal  data  a) 
PROCEDURE  SH0UEXAM1NEE: 

VAR  J  :  INTEGER: 


(*  display  soee  data  a) 

PROCEDURE  Dl: 

BEGIN 

WITH  PINFO  00 
BEGIN 

WRI TELN (DEST) : 

WRITE (DEST.LASTNAnE.*  ’): 

WRITE (DEST, F I RSTNAME,'  •): 

WRITE (DEST, MINI TIAL): 

WRITE (DEST. EXAMINEE. ID): 

WRI TE (DEST .CURRADORESS) : 

WRITE (DEST. HOMEOFREC): 

WRITE (DEST. CITIZENSHIP): 

WRITE (DEST, SEX); 

WR I TELN (DEST . POPGROUP) : 

(«  end  of  first  line  of  compacted  data  a) 
WRITE (DEST, ETHNIC): 

WRITE (DEST. MARITAL): 

UR I TE (DEST, DEPENDANTS) ; 

WRITE (OEST.BIRTHDATE) : 

END: 

ENO;  (a  dl  «) 

BEGIN  («  display  examinee  *) 

01: 

WITH  PINFO  00 
BEGIN 

WRI TE(OEST. EDUCATION): 

WRITE (DEST. TESTIO); 

WRITE (DEST, AFQT) ; 

WRI TELN (DEST. ASVAB): 

(«  end  of  second  tina  of  coapact  data  •) 

UR1 TE (DEST , ENL I STDATE ) : 

WRITE (DEST. ACTSEROATE): 

WRITE (DEST.ENL): 

WRI TELN (DEST, AFEES): 

(«  end  of  third  line  of  coepact  data  •) 

WRITE (DEST, POSTASVAB): 

WRITE (DEST, BOS): 

WRI  TE  (DEST,  STESTOROER 10] .  STESTORDER ID ) : 

WRI TELN (DEST.EXAMINEE. DATE) : 

(*  end  of  fourth  line  of  coapact  data  •) 

END: 

ENO:  (a  shouexaalnee  a) 


(*  check  whether  coding  speed  or 
needed  to  see  if  tiae  info  ui 1 1 
for  SPSS  a) 

PROCEDURE  CHECK TIMEOUT i 
BEGIN 

(«  Test  nuaber  ainus  one.  iei 

5.  Nuaerical  Operations 

6.  Coding  Speed 

10.  Coding  Speed  II 

11.  Numerical  Operations  II 
IF  EXAMINEE. TESTOROERITINDEX)  IN 
BEGIN 

IF  EXAMINEE. TESTOROERITINDEX)  IN  16,10,14,15} 
MAXLINES  7  a  EXAMINEE. TESTLENGTHITINDEX) 
ELSE 

MAXLINES  :«  3  a  EXAMINEE. TESTLENGTHITINDEX) -1; 
IF  IINESOUT  <  MAXLINES  THEN 
BEGIN 


nuaerical  ops  subtest 
appear  at  correct  lir 


12.  Nuaerical  Operations  III 

13.  Nuaerical  Operations  IV 

14.  Coding  Speed  III 

15.  Coding  Speed  IV  a) 
15,6,10,11,12,13,14,15)  THEN 


THEN 


FOR  DUM  LINESOUUI  TO  MAXLINES  DO 

IF  EXAMINEE. TESTOROERITINDEX]  IN  (6,10,14,15) 
THEN 
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IF  OUM  rtOO  7  -  0  THEN 
BEGIN 

URITE (Q£ST,*Ti*e008  ’); 

URITELN(DEST, SAVETIME  :  6  :  1); 

SAVETIME  0.8: 

ENO 

ELSE 

URITE (OEST,’ Tiae008  ’) 

ELSE 

BEGIN 

IF  OUM  MOO  3  -  8  T)€N 
BEGIN 

LWITEIOEST, ‘Ti«e008  '): 

UR  I TELN (OEST, SAVETIME  :  6  :  1); 

SAVETIME  :-  0.0: 

END 

ELSE 

UR! TE (OEST, ’ T i ee008  ’ >  s 
IF  DUM-MAXLINES  THEN 
BEGIN 

UR1 TELNIDEST, *  ’ .SAVETIME  :  S  :  1); 

SAVETIME  :•  0.0: 

ENO; 

ENO; 

ENO 

ELSE 

IF  NOT  (EXAMINEE. TESTOROER ITINOEXl  IN  IB, 10, 14,15] )  THEN 
URITELN(OEST, '  ‘.SAVETIfC  :  6  :  1); 

ENO; 

ENO;  (*  check tieeout  *) 


PROCEDURE  TIME; 

BEGIN 

MINUTES  TESTS. STTIME  DIV  60: 

SECONOS  TESTS. STTIME  MOO  60; 

IF  MINUTES  >  0  THEN 
URITE (OEST, MINUTES; 3,  ’s’) 

ELSE 

URITE (OEST,’  :•): 

IF  SECONOS  <  10  THEN  URI TE (OEST, ’8’ .SECONDS) 
ELSE 

URITE (OEST. SEC0NDS:2); 

MINUTES  TESTS.STINSTRTIME  DIV  60; 

SECONDS  TESTS. STINSTRTirC  MOO  60; 

IF  MINUTES  >  0  THEN 
URITE (OEST, MINUTES: 3.’ :’) 

ELSE 

URITE (OEST, *  :’); 

IF  SECONOS  <  10  THEN  URITE (OEST , ’ 8’ , SECONOS) 
ELSE 

URITE (OEST, SECONOS: 2) ; 

UR I TE (OEST . TESTS . STPROCTCALLS: 2) ; 

(«  line  6  of  coepact  data  *) 

ENO; (*TIME«) 


(*  send  detailed  or  sinple  feedback  to  printer  or  screen  «) 
PROCEDURE  OUTPUTRESULTS; 

VAR  J.I.K  :  INTEGER; 

SEVEN  :  PACKED  ARRAY (1.. 7)  OF  CHAR; 


(*  get  info  and  write  header  «) 

PROCEDURE  INFOHEAOER; 

VAR  SHOP T_N ATE  :  STRING; 

BEGIN 

RESET (FI LEO I  RECTORY, I NOEXNAME) ; 

SEEK (F I  LEO  I RECTORY , EXAMINEE . TESTOROER IT  I NOEX) ) ; 
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GET  (FILEQIRECTORY)  •, 

TNAME  FILEDIRECTORY". TESTNAME: 

CLOSE (F I  LED I  RECTOR Y . LOCK ) j 

CURRSTRAT  s-  EXAM I NEE. STRATEGY [T I NOEX] : 

SHORT  NAME  ’WHAT’;  (*  SET  A  DEFAULT  *) 

CASE  EXAMINEE. TESTOROER ITINOEX)  OF 


0 

SHORT  NAME 

• . 

•  UK 

1 

SHORT "NAME 

•  ■ 

*  GS 

2 

SHORT  NAME 

• . 

*  AR 

3 

SHORT_NAME 

:  - 

*  MK 

4 

SHORT  NAME 

*  ■ 

*  PC 

5 

SHORT  "NAME 

: - 

'NO-1 

6 

SHORT~NAME 

:  • 

’CS-l 

7 

SHORT "NAME 

t  - 

’  AI 

8 

SHORT_NAME 

:  • 

*  MC 

9 

SHORT "NAME 

:  ■ 

*  El 

10 

SHORT  NAME 

:  ■ 

*CS-2 

11 

SHORT  NAME 

s  - 

•NO-2 

12 

SHORT  NAME 

:  ■ 

•NO-3 

13 

SHORT  NAME 

:  - 

•NO-4 

14 

SHORT  NAME 

•  • 

•CS-3 

IS 

SHORT  NAME 

:  - 

•CS-4 

16 

SHORT  NAME 

:• 

•fK-2 

17 

SHORT  NAME 

J  ae 

•  SI 

18 

SHORT  NAME 

t  ■ 

•MC-2 

19 

SHORT  NAME 

;  • 

•AR-2 

20 

SHORT  J4AME 

S*» 

•EI-2 

URITELN(OEST,SHORT_NAME)|  (*  end  of  line  four  of  coepact  data  e) 
END;  (*  infoheader  «) 


PROCEDURE  CTOUT ; 

BEGIN 

CASE  CURRSTRAT  OF 

NONE  s  UR  I TELN (DEST , '» 

B 102222, 


B54321, 
B 18864 2 


END; 

END: 


BEGIN 

WRITE  (DEST,  TESTS.  I  TEMI^O  II).  THETA  :  2  :  3)  s 
URI  TELN  (DEST,  TESTS. I TEMINFO  II) .ERROR  i  2  i  3)| 
END: 

BEGIN 

IF  TESTS.ITENlfFOUJ.RTYPE  <>  SEVENCHR  T)CN 
BEGIN 

IF  (II+l)  >  QUESTIONS)  OR 

(II+l)  >  TESTS. NUM ITEMS)  THEN 
CHECKTIMEOUT 

ELSE 

BEGIN 

IF  TESTS. I TEMINFO II+l J . I TEHNUH  <-  0  THEN 
CHECKTIMEOUT 
ELSE 

URI TELN (DEST, 

TESTS.  I  TEMINFO  (I). LATENCY  :  6  :  1); 

END: 

END: 

END: 


(e  ctout  «) 


BEGIN  (e  outputresul ts  «) 

INFOHEADER: 

I  :  •  0: 

SUMTIME  :-  0.0: 
LINESOUT:.0: 
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UH11E  (1  <-  QUESTIONS)  ANO  (I  <-  TESTS.  NUT1  ITEMS)  DO 
BEGIN 

IF  TESTS.  ITEflINFO Cl) .  I TEMMUfl  >  0  THEN 
BEGIN 

IF  TESTS.  I TEM1NF0 11). RTYPE  <>  SEVENCHR  THEN 
BEGIN 

IF  TESTS.ITEMINF0C11.ITEMNUM  <  10  THEN  URITEIOEST. ’000’) 
ELSE 

IF  TESTS.  ITEflINFO  II).  I  TEfWUfl  <  100  THEN  URI TE  (OEST, ’00’ ) 
ELSE 

IF  TESTS.  ITEfllNFOCI) .  ITEMNUM  <  1000  THEN  URI  TE  (OEST. ’0’ )  j 

UR  I  TE  (OEST .  TESTS.  I  TEfll  NFO  Cl ) .  I  TEflNUM,  ’  *’ ) ; 

END; 

SAVETIME  TESTS.  ITEfllNFOCI). LATENCY: 

IF  CURRSTRAT  -TIMED  THEN 
SUT1TIME  SUMTIME  +  SAVETIME; 

CASE  TESTS.  ITEfllNFOCI). RTYPE  OF 
CHAR VALUE  :  BEGIN 

CASE  TESTS. I  TEH  I NFO Cl  I. RESPONSE  OF 
•A’  :  URITEIOEST,  ’1  ’ )  * 

’B’  :  URI TE (DEST, ’2’ ) ; 

’C*  t  URI TE (DEST, ’3’): 

•O’  :  URITE (OEST, ’4’ ) ; 

’E’  :  URITE (OEST. ’S’); 

ENO(eCASE*>: 

IF  TESTS.  ITEfllNFOCI). CORRECT  THEN 
URITE  (DEST,  T) 

ELSE 

URI TE (OEST, *8*): 

END; 

INTVALUE  :  BEGIN 

URITE  (OEST. TESTS.  ITEfllNFOCI).  INTRESPONSE  :  1); 
IF  TESTS.  I  TEfll  NFO  1 1).  CORRECT  T)€N 
URITEIOEST.  ’V) 

ELSE 

IfMTE  (OEST,’0’): 

END; 

SEVENCHR  :  BEGIN 

J  TESTS.  ITEMIfFOCI)  .ACOUNT; 

FOR  K  1  TO  J  DO 
BEGIN 

IF  TESTS.  ITEMINFOCI).  ITEMNUM  <  10  THEN 

l«ITE  (DEST, ’808*) 

ELSE 

IF  TESTS.  ITEflINFO II).  I TEWOI  <  100  T)€N 

URITE (DEST, ’00*) 

ELSE 

IF  TESTS.  ITEfllNFOCI). I TEHNUM  <  1088  T)€N 

URITE (OEST, ’0’); 
URITE  (DEST, TESTS.  ITEfllfFOCn  .  ITEmjfl.X): 

CASE  TESTS.  ITEflINFO  (I )  .CHRRESPONSE  CK1  OF 
•A’  i  URITE (DEST, *1'); 

*B*  :  URITE (OEST, ’2’); 

’C*  :  URITE (DEST, *3’): 

*D*  :  URITE (DEST, ’4’): 

*E*  :  URITE (DEST, *5’); 

END  («CASE«) : 

IF  TESTS.  ITEflINFO II) . ACORRECT  DC-1)  THEN 
URITEIOEST, ’1’) 

ELSE 

URITE (OEST, *0*)t 
URITEIOEST,’*’): 

LINESOUT:-LINESOUT+l: 

END:  (*  for  *) 

TNUTI  EXAMINEE.  TESTOROER  IT  INDEX); 

IF  (U+l)  >  QUESTIONS)  OR 

((!♦!)  >  TESTS. NUMITEflS)  T)CN 
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BEGIN 

IF  IIJ  -  7)  AND  (TNUI1  -  18))  OR 
(<J  -  3)  AND  (TNUT1  -  ID)  THEN 
BEGIN 

URITELNIDEST, 

TESTS . I  TEH I NFO  U ) . LATENC Y 1 6 : 1 > ; 

IF  J  -  7  THEN 

SAVETINE  8.8$  (*  428.8  -  SUHTIHE;  *) 

IF  J  -  3  THEN 

SAVETIHE  8.8;  (*  188.8  -  SUMTIME;  ») 

ENO; 

CHECKTIHEOUT; 

ENO 

ELSE 

BEGIN 

IF  TESTS.  I  TEHINFOII+11  .  ITEHNUH  <-  8  THEN 
BEGIN 

IF  IIJ  -  7)  AM)  (TNUM  -  18))  OR 
((J  -  3)  AND  (TNUM  -  ID)  THEN 
BEGIN 

URITELNIDEST. 

TESTS . 1 TEHI NFO  I D . LATENCY : B ; 1) ; 


IF  J  -  7  THEN 

SAVETINE  8.8;  (*  428.8  -  SUflTIHE;  *) 

IF  J  -  3  THEN 

SAVETINE  0.8;  («  180.0  -  SUHTIHE;  «) 

END; 


END 


CHECKTITEOUT; 

END 

ELSE 

URITELNIDEST. 

TESTS. I  TEH! NFO  III . LATENCY: 6s 


END; 

END; 


D; 


CTOUT; 

EM); 

I  ;•  I  ♦  1;  I*  each  I  outputs  a  lino  5  of  coopact  data  *) 

ENO;  («  UHILE  «) 

TIHE; 

IF  EXAHINEE.PREOASVABITINOEX]  <  10.0  TIEN 
BEGIN 

URITEIOEST,’  *  I ;  Io  This  statement  right  justifies  the  PASVAB  output  *) 
URI TELNI0EST.EXAHINEE.PREDASVA8 ITINOEXI  t St 2) ; 

END 

ELSE 

URITELN I0EST.EXAHINEE.PREDASVA8 [TINDEX1 ;S;2) ; 

(e  end  of  line  6  of  compact  data  e) 

ENO;  (e  outputresul ts  *) 

te  loads  examinee  personal  data  *) 

PROCEDURE  LOAOPOATA IRECORONUH  ;  INTEGER); 

BEGIN 

RESE T  IP I NFOF I LE . P I NFONAHE ) ; 

SEEK  IPINFOFILE.RECORONUH) ; 

GET (PINFOFILE)  j 
PINFO  PINFOFILE^; 

CLOSE  (PDEOFILE.LOCK) ; 

END;  (e  load  personal  data  e) 
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BEGIN  (*  examinee  summary  *) 


LOAOPOATA (ERECNUM) ; 

ENAME  ’  ’; 

FOR  K  :-  0  TO  8  00 

ENAME  IK+1)  EXAMINEE.  10 IK1; 
FNAME  CONCATI’E’ .ENAME) ; 

FNAME  CONCATENATE,’.  TEXT  1*1’ ); 

FNAME  CONCAT  (’QTEXT  :  *, FNAME); 


REURITE (OEST, FNAME); 

(*  urite  personal  data  to  file  *) 
SHOUEXAMINEE: 

RSLOT  ERECNUM  *  GMAX SUBTEST; 

FOR  T INDEX  1  TO  GMAXSUBTEST  00 
BEGIN 

CURRSTRAT  EXAMINEE. STRATEGY ITINDEX1 ; 
LOAORESULTS (RSLOT); 

IF  TESTS. NUMITEMS  >  0  THEN 
BEGIN 

URITELN(OEST); 

OUTPUTRESULTS; 

END; 

RSLOT  s-  RSLOT  +  1; 

END;  (*  for  *) 

MINUTES  EXAMINEE. TOT T I MECONSOLE  01 V  S0; 
SECONDS  EXAMINEE. TOT T I MECONSOLE  MOO  £0; 
URITE (OEST, MINUTES: 3, ' ; ' 

IF  SECONDS  <  10  THEN  UR  1TE  (OEST.  *0*.  SECONDS) 
ELSE 

URITE (OEST. SEC0NDS:2); 

MINUTES  EXAMINEE. ORIENTATIONTIME  OIV  50; 
SECONDS  EXAM I NEE. ORIENTATIONTIME  MOO  60; 
URITE (OES T , MINUTES: 3,’ 

IF  SECONDS  <  10  THEN  URITE (OEST. ’S’. SECONDS) 
ELSE 

URITE (DEST. SECONDS: 2); 

URI  TELN(0EST.EXAMINEE.NUnPR0C:2) ; 
URITELN(DEST); 

CLOSE (DEST. LOCK); 


ENO;  (*  endsummary  *) 
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f^tr’rt^ttt'tt**'***'***'**  ****************************************  **»*»****•**'**'**»»* 
(a  a) 

(a  Textfile  :  AOMIN. OIR/A. 10. TEXT  Volume  :  TFILES  a) 

(a  Codefile  :  AOMIN. CODE  (‘Include*  file)  Volume  :  CATOATA  *) 

(*  «) 

(♦**■«»»♦«  M«S»aS«»«»lMl«SS*.rrr»***«'**»lM*»,»l*’»'l«««»S«««»«rin»»aTr»«»«»aa»««a«»«»*aaaa) 
(*  DEC.  1.  1982  NPRDC  *> 

(♦sssasasassaeseasasssassssaaastaassMMrasasaaaaaaaasraaa'raeaasesss'Ssesaaaaaaa) 


(«  load  the  examinee  directory  s) 

PROCEDURE  LOAOINDEX; 

BEGIN 

RESET (EDIR.E1NDEX); 

SEEK(EOIR,0) ;  (a  examinee  directory  aluaya  record  0  a) 

GET  (EOIR) : 

OIR  EDIR": 

CLOSE  (EDIR.LOCIO: 

END;  (*  load  index  a) 


(*  get  the  examinee  record  from  disc  a) 
PROCEDURE  LOAOEXAMINEE; 

BEGIN 

RESET (FILEEXAMINEE, INFONAME) ; 

SEEK (FI LEEXAM I NEE . RECNUM) t 
GET (FILEEXAMINEE); 

EXAMINEE  FILEEXAMINEE": 

CLOSE (FILEEXAMINEE. LOCK) ; 

END;  («  load  examinee  a) 


(«  update  examinee  record  *) 
PROCEDURE  UPOA  TEEXAM I NEE  j 
BEGIN 

IF  NOT  OEMOFLAG  THEN 
BEGIN 

RESET (FILEEXAMINEE. INFONAME) ; 
SEEK (FILEEXAMINEE. RECNUM) ; 
FILEEXAMINEE"  EXAMINEE; 

PUT (FILEEXAMINEE); 

CLOSE (FILEEXAMINEE. LOCK) ; 

END; 

END;  (*  updateexaminee  e) 


(«  update  examinee  directory  «) 
PROCEDURE  UPDATE INDEX; 

BEGIN 

IF  NOT  OEMOFLAG  THEN 
BEGIN 

RESET (EOIR.EINOEX); 

SEEK (EOIR. 0); 

EOIR"  DIR; 

PUT (EOIR) ; 

CLOSE (EOIR. LOCK) ; 

END; 

ENO;  (*  update  index  a) 


(«  update  test  scores  e) 
PROCEDURE  UPOATERESULTS; 
BEGIN 

IF  NOT  OEMOFLAG  THEN 
BEGIN 

RESET  (FILETESTS. RESULTS); 
SEEK (FI LETESTS, RECNUM) ; 
FILETESTS"  TESTS; 

PUT (FILETESTS): 

CLOSE (FILETESTS. LOCK); 
ENO; 

ENO;  (a  update  results  a) 


Oec  9  14:55  1982  ADMIN. OIR/A. 10. TEXT  (  I/O  routines)  Page  2 


(*  load  old  test  scores  *) 
PROCEDURE  LOAORESULTS: 
BEGIN 

RESET (FILETESTS, RESULTS) : 
SEEK  (F 1 LE  TESTS .  RECNUM) ; 
GET (FILETESTS): 

TESTS  FILETESTS": 

CLOSE (FILETESTS, LOCK); 
END;  (*  loadresults  *) 


(*  load  information  table  *) 
PROCEDURE  LOAD INFO; 

BEGIN 

RESE  T ( I NFOF I LE , T ABNAHE ) ; 
SEEK ( I NFOF I LE . RECNUM ) ; 

GET (INFOFILE) ; 

INFOTABLE  INFOFILE"; 
CLOSE (INFOFILE. LOCK); 

ENO;  («  load  info  •) 


(*  load  the  set-up  parameters  «) 
PROCEOURE  LOADPARArtS; 

BEGIN 

RESET <F I LESP ARAMS, SETUPOATA); 
SEEK (FILESP ARAMS, 0) ; 

GET (FILESP ARAMS); 

SPAR AMS  FILESP ARAMS"; 

CLOSE (F I LESP ARAMS, LOCK) ; 

END;  (*  loadparams  *) 


Dec  9  14:57  1982  ADMIN. DIR/A. PROCT. TEXT  (  Proctor  routine)  Page  1 


Textfile  :  ADMIN. OIR/A. PROCT. TEXT  Volume  :  TFILES 

Codefile  :  ADMIN. CODE  (’Include’  file)  Volume  :  CATDATA 


DEC.  1.  1982 


Variable  parameter  passed  back  to  indicate  the  state  of  affairs 

Exit  codes  :  1  »  return  to  testing  procedures 

2  *  exit  general  instructions. 

3  -  exit  log-in  /  continue 

4  •  exit  subtest  instructions/saaples  &  continue 

5  •  go  on  to  next  subtest  /  discontinue  present 

6  •  log-out  examinee  /  end  al I  modules  /  go  on  to 

next  examinee  6  session. 


(*  Cal  led  from 


general  instructions 
login 

i ns true  t i ons/samp I es 
administering  question 
driver  subtest  stop 


(*  Uhen  ever  the  proctor  ie  called,  the  contents  of  the  screen  is  lost, 

(*  thus  certain  codes  are  passed  around  to  tell  if  the  proctor  uas  called 
(*  Then  steps  can  be  taken  to  restore  what  uas  on  the  screen  before  the 
(*  proctor  call,  eg.  looping  the  urites  to  screen  until  keg  pressed  uas 
(*  not  the  help. 


SEGMENT  PROCEDURE  CALLPROCTOR (CALLEDFROM  :  INTEGER;  VAR  EXITCOOE  :  INTEGER) 


CONST  NUMPROCTOROPTIONS  -  6; 

(*  ring  bell  x  times  to  call  proctor  •) 
MAXBELL  -  5; 

(«  password  1  *) 

P1UORO  -  ’LJi’i 

(*  passuord  2  *) 

P2U0R0  -  ’Ll’; 


VAR  SELECT, 

OPTION  :  CHAR; 

CONVERT  :  PACKED  ARRAY  tl. .NUMPROCTOROPTIONS)  OF  CHAR; 
OK OPT IONS  :  SETOFCHAR; 

X, Y, I . J.K  ;  INTEGER; 

PFLUSH, 

PASSUORD  :  STRING; 

DONE  :  BOOLEAN; 


PROCEDURE  INV0PTI0N(0PT  :  INTEGER;  INV  :  BOOLEAN); 
BEGIN 

IF  INV  THEN 
INVERSE 
ELSE 

NORMALSCR; 


CASE  OPT  OF 
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1  s  WRITE {’RE TURN  TO  TESTING  PROCEDURES’ ) s 

2  s  WRITECEXIT  GENERAL  INSTRUCTIONS’); 

3  :  UR1TECEXIT  LOG-IN  /  CONTINUE’); 

4  s  URITECEXIT  SUBTEST  INSTRUCT 'ONS/SAMPLES* ) ; 

5  s  URITE  (’GO  ON  TO  NEXT  SUBTEST‘1; 

S  s  URITECGO  ON  TO  NEXT  SESSION’); 

ends 

IF  1NV  THEN 
NORMAL SCR 
ELSE 

INVERSE: 

END; 

PROCEDURE  PMENUs 
BEGIN 

PAGE (OUTPUT); 

GOTOXY  (13, 1 ) ; 

UR  I  TEC  PROCTOR  ftNU’); 

GOTOXY{1.4>: 

URITEt’Select  one  of  the  following  options  by’); 
GOTOXYd.S); 

URITE  Centering  its  nueber,  then  pressing  the’); 
GOTOXYll.G); 

URITE  C<YES>  key.’); 

J  ;-  10; 
k  1; 

(•  display  valid  options  *) 

FOR  I  s-  1  to  NUTFROCTOROPTIONS  00 
BEGIN 

IF  CHRII+48)  IN  Ok OPT IONS  THEN 
BEGIN 

GOTOXY  (3. J); 

CASE  I  OF 

1  :  URITE (k.*.  RETURN  TO  TESTING  PROCEDURES’); 

2  s  URITE IX.’.  EXIT  GENERAL  INSTRUCTIONS’); 

3  s  URITE  IK.’.  EXIT  LOG-IN  /  CONTINUE’); 

4  ;  URITE (k, *.  EXIT  SUBTEST  INSTRUCT l ONS/SAMPLES’ > ; 

5  s  URITEOC,’.  GO  ON  TO  NEXT  SUBTEST’); 

S  ;  UTITEIk,’.  GO  ON  TO  NEXT  SESSION’); 

end; 

J  !■  J  +  1; 

<a  save  association  between  option  and  menu  a) 
CONVERTOO  CWdI+48); 

X  ;■  K  +  1; 

END; 

END; 

GOTOXY (0,22); 

URITE  I’  Enter  choice  #,  then  press  <YES>  :  ’); 

END;  (a  paenu  e) 


BEGIN  (a  callproctor  a) 

(a  save  total  nueber  of  proctor  calls  a) 
EXAMINEE. NUMPROC  EXAMINEE.NUMPROC  ♦  1; 

(a  save  proctor  calls  during  this  test  a) 
TESTS. STPROCTCALLS  TESTS. STPROCTCALLS  +  1; 


IF  GRAF IX  THEN 
BEGIN 

PAGE  (OUTPUT); 
TEXTON; 

END; 


Oec  9  14:57  1982  ADHIN.OIR/A.PROCT. TEXT  (  Proctor  routine)  Page  3 


IF  NOT  FORTYCOLUTN  THEN 
TEXT40MOOE; 

IF  NOT  REVERSEVIDEO  THEN 
INVERSE: 

FOR  I  1  TO  (1AXBELL  00 

SQUAUK;  I*  notify  proctor  •) 

(a  set  valid  proctor  menu  options  *) 

CASE  CALLEDFROM  OF 

(*  called  from  general  instructions  a) 

1  :  OX  OPTIONS  [,1\’2\,G,]5 

(*  called  fro*  login  a) 

2  :  0X0PTI0NS  l’l’ , ’3’ , ’6’) ; 

(*  called  froe  subtest  instructions/saeples  a) 

3  :  OK OPT  IONS  Cl’ .  *4’ . . ’G’l ; 

(a  called  froa  administer  question  a) 

4  :  OX OPTIONS  s-  I’l*, ’5*.. *6*1 j 

(«  called  froa  driver  stop  flag  a) 

5  :  OX  OPT  IONS  [’l’J; 

END;  <a  case  a) 

(a  tell  exaainee  to  get  proctor  a) 

PAGE (OUTPUT 1 5 
GOTOXY (8.10) i 

URITECPIease  call  the  proctor.  ’Is 

(a  get  passuord  1  a) 

REPEAT 

GOTOXY (34. 10); 
if  ghost  then 
pflush  ;•  pi word 

else 

REAOLN (KEYBOARD, PFLUSH) : 

IF  PFLUSH  <>  P1UORO  THEN 
UNTIL  PFLUSH  -  P1U0R0; 

(a  get  passuord  2  a) 

PAGE (OUTPUT) s 
GOTOXY (8. 10); 

URITEC  Passuord  t  Ms 

REPEAT 

GOTOXY (20. 10); 
if  ghost  then 
passuord  t -  p2uord 

*  REAOLN (KEYBOARD , PASSUORD ) ; 

IF  PASSUORD  <>  P2U0R0  THEN 
FOR  I  s-  1  TO  HAXBELL  00 
SOU AUK; 

UNTIL  PASSUORD  -  P2U0R0; 


(aaaa  display  proctor  aenu  aaaa) 
PMENU; 


(a  select  an  option  a) 
i f  ghost  then 
beg  i  n 

select  :«  ghostdigit; 
if  select  >  chr(k+47)  then 
select  :■  *1’; 
if  select  •  ’0’  then 
select  *1’; 

end 
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SELECT  GETCHAR (f  1’ .  .CHR(K+47H ,  true, TRUE,  true) : 
OPTION  CONVERT  I  (ORO (SELECT) -48)); 

Y  ORO  (SELECT)  -  39: 

X  ORO  (OPTION)  -  48: 


GOTOXY (G.Y); 
INVOPTIONIX, FALSE) : 


DONE  FALSE: 

REPEAT 

GOTOXY (8,22) ; 

URITE(*  Enter  choice  tt,  then  press  <YES>  :  ’); 

(m  select  an  option  e) 
if  ghost  then 

select  :-  chr(yeskey) 

"  SELECT  GETCHAR ( I’ 1* .  .CHRIK+47) ,CHR (YESKEY) ) , true, TRUE, true) : 

IF  SELECT  <>  CHR (YESKEY)  THEN 
BEGIN 

GOTOXY (G.Y) ; 

INVOPTION(X. TRUE) ; 

OPTION  CONVERT  I (ORO (SELECT) -48) )s 
Y  ORO (SELECT)  -  39; 

X  ORO(OPTION)  -  48: 

GOTOXY (G.Y); 

1 NVOPT 1 ON (X, FALSE): 

END 

ELSE 

DONE  TRUE; 


UNTIL  DONE: 

(«  pass  back  flou  code  *) 

EXITCOOE  :-  ORO (OPTION)  -  48: 

(*  set  global  flou  code  «) 

IF  EXITCOOE  >-  5  THEN 
FLOUCOOE  :-  EXITCOOE; 

(«  perform  action  based  on  option  *} 

CASE  OPTION  OF 
•l*  :  : 

•2’  :  j 

•3*  :  ; 

•4*  :  s 
*5*  :  ; 

*6*  :  («  leaving  session  «) 

(•must  save  point  m) 

(*  of  departure  «) 

BEGIN 

IF  QNUT1  -  CURRTLENGTH  THEN 
BEGIN 

(*  leaving  session,  dons  with  subtest  *) 

EXAHI NEE. LAST TEST  :-  TItCEX; 

(*  check  if  it  uas  the  last  test  in  the  series  s) 
IF  T INDEX  <  GMAXSIJBTEST  THEN 
IF  SPARAMS. SUBORDER  IT  I NOEX+1J  <  0  THEN 
(«  if  so,  set  dons  flag  for  examinee  *) 
EXAMINEE. LASTTEST  :-  128; 

END 

ELSE 

(*  leaving  session,  not  done  uith  subtest  s) 
EXAMINEE. LASTTEST  :-  TINDEX  -  1; 
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END: 

END; 

IF  NOT  FORTYCOLUTW  THEN 
TEXT80T1OOE; 

IF  NOT  REVERSEVIDEO  T)CN 
NORT1ALSCR 
ELSE 
INVERSE: 


END:  («  callproctor  *) 
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lfftT*««i»tm^tt‘t»»«»*1‘*t<e*tiM*<r**l***»************llr*lnll*'*t*Mt«M‘1*“*****1 
(*  «> 

(*  Textfile  :  AOfllN. 01R/A.CF. TEXT  Volume  :  TFILES  e) 

(*  Codefile  :  AOfllN. CODE  ('Include*  file)  Volume  :  CATDATA  e) 

(*  *> 

(«  File  last  modified  :  Jan  26,  1983  NPROC  s) 

( 1 1  ♦  t  —  «sm  «******»**■«  wwmwemwss  *********  «■«  «  *« ssmcsme) 

(*  This  procedure  gives  a  computer  fami larization  session  to  the  examinee  *) 

(*  by  requesting  that  a  certain  keg  is  pressed.  Each  keg  on  the  kegpad  «) 

(s  is  demonstrated  and  the  examinee  must  press  it  uithin  so  mang  trgs  or  *) 


(«  else  the  proctor  gets  called  automatical Ig.  ») 

SEGIt'NT  PROCEDURE  COflPUTERFAfl!  LAR 1 ZAT 1  ON  j 

CONST  HAXGIERROR  -  3;  («  maximum  amount  of  errors  you  can  make  *) 


VAR  REVERSE,  (*  holds  char  value  to  write  reverse  vidio  *) 

ANSWER,  (*  chars  that  examinee  presses  *) 

KEYCHAR  :  CHAR; 

OK,  (*  loop  flags  *) 

DONE  :  BOOLEAN; 

GCOOE,  (*  controls  flou  in  this  module  *) 

I. 

ASCI  I  VALUE. 

GIERROR  :  INTEGER;  (*  number  of  errors  made  «) 

(e  multiple  chars  ue  want  examinee  to  type  in  *) 

KEYSTR2  :  PACKED  ARRAY [0..1I  OF  CHAR; 

KEYSTRS  :  PACKED  ARRAY (0.. 51  OF  CHAR; 

KEYSTR3  :  PACKED  ARRAY (0. . 2)  OF  CHAR; 

KEYSTRS  :  PACKED  ARRAY C0. . 8)  OF  CHAR; 


(«  draw  the  numeric  kegpad  to  screen  «) 
PROCEDURE  ORAUKEYBOARD; 

BEGIN 

PAGE (OUTPUT); 
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1  ’ ) ; 

URITELNC 

1 

D; 

URITELNC 

1 

0 

1 

1  * » ; 

URITELNC 

1 

4444444 

n, 

URITELNC 

1 

ssu 

s&sssu 

1  ’ ) ; 

URITELNC 

1 

1  NO  | 

1 

YES  | 

r>, 

URITELNC 

1 

SSU 

fUUUUtAA 

OOOOOQO 

i’)t 

WITELNC  SSSSSUSSUSUSSSSSSSSU' ) ; 

END;  (•  draukegboard  *) 


(e  draw  inverse  or  normal  key  on  kegpad  *) 
PROCEDURE  INVERSEMOOE (ON  :  BOOLEAN;  KEY  :  CHAR); 


PROCEDURE  INVURI TE (KEYSTR  ;  STRING); 
BEGIN 

IF  ON  THEN 
REVERSE  CHR(17) 

ELSE 

REVERSE  CHR (18) ; 
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Ifl  I TE (REVERSE . KEYSTR) 
END;  (*  invurite  *) 


BEGIN  (*  invereemode  *) 

ASCI  I  VALUE  ORO(KEY); 

CASE  ASCI  I  VALUE  OF 

48  :  BEGIN 

G0T0XY(15,11); 
INVURITEC  0  *); 
END; 

49  :  BEGIN 

GOTOXY  (14,8) ; 
INVURITEC  1  ’); 
END; 

50  :  BEGIN 

GOTOXY (22. 8) ; 
INVURITEC  2 
END; 

51  :  BEGIN 

GOTOXY (30, 8); 
INVURITEC  3  *); 
END: 

52  :  BEGIN 

GOTOXY (14, 5); 
INVURITEC  4 
END; 

53  :  BEGIN 

GOTOXY (22. 5); 
INVURITEC  5  '); 
END; 

54  :  BEGIN 

GOTOXY (30,5) ; 
INVURITEC  6  *); 
END; 

55  :  BEGIN 

GOTOXY(14.2); 
INVURITEC  7  '); 
END: 

56  :  BEGIN 

GOTOXY (22. 2); 
INVIFITEC  8  ’); 
END; 

57  »  BEGIN 

GOTOXY (30.2); 
INVURITEC  9  *)» 
END; 

65  t  BEGIN 

GOTOXY (3, 3) i 
INVURITEC  A  ’); 
GOTOXY (16. 15); 
INVURITEC  A’)  i 
END; 

66  :  BEGIN 

GOTOXY (10, 3); 
INVURITEC  0  ’); 
GOTOXY (16. 15); 
INVURITECB’ ); 

END; 

67  t  BEGIN 

GOTOXY (17, 3); 
INVURITEC  C  *); 
GOTOXY (16, 15); 
INVURITE  CC*); 

END; 

68  :  BEGIN 

GOTOXY (24,3); 
INVURITEC  0  ’); 
GOTOXY (16, 15); 
INVURITE  CD’); 

ENO; 

89  :  BEGIN 

GOTOXY (31. 3); 
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INVURITEC  E  ’); 
GOTOXY (16, IS) : 
lNVWRITE(’E'); 

END; 

NOKEY  :  BEGIN 

GOTOXY (15. 14); 
INVUR1TEC  NO  *  I : 
END; 

YESKEY  :  BEGIN 

GOTOXY (27. 14); 
JNVWRITEC  YES  •); 
END; 

ERASEKEY  :  BEGIN 

GOTOXY (26. 11); 
INVUR1TEC  ERASE  ’); 
END; 

HELPKEY  :  BEGIN 

GOTOXY (1,1); 
INVWRITEC  HELP  *); 
END; 

END;  («  case  e) 

END;  (•  i  river  seeode  ») 


(*  Make  exaainee  find  7  on  keypad  *) 

PROCEDURE  FIND7; 

BEGIN 

GIERROR  0;  (*  initialize  count  of  errors  *) 

OK  FALSE; 

(e  loop  until  enters  in  right  keg  *> 

WHILE  (NOT  OK)  00 
BEGIN 

URITELNC  Find  the  ”7*'  keg  at  the  upper  left’); 

UR1TET  and  press  it.’); 

(*  sake  the  keg  stand  out  *) 

I NVERSEHOOE  ( TRUE , ’ 7 ’ ) ; 
i f  ghost  then 
begin 

if  gierror  >»  aaxgierror  then 
kegchar  *7' 

else 

kegchar  : -  ghostdigit 

end 

*  KEYCHAR; -GETCHAR ( (CHR (ESC) ,CHR (HELPKEY) ) +OIGI TS, TRUE, FALSE. TRUE) ; 
INVERSEMOCE (FALSE. ’7’ ) ; 

OELAY(l); 

IF  KEYCHAR  -  OR  (NELPKEY)  THEN 
CALLPROCT (1.GC00E) ; 

IF  GCOOE  <>  1  TVCN  EXIT(COMPUTERFAMILARIZATION) ; 

IF  KEYCHAR  -  Of)  (HELPKEY)  THEN 
BEGIN 

ORAUKEYBOARO; 

UR1TELN; 

END 

ELSE 

BEGIN 

BLANKLINES (17, 7, 17) ; 

IF  KEYCHAR  <>  'V  THEN 
BEGIN 

IF  ORO (KEYCHAR)  -  ESC  THEN 
BEGIN 

SKIP  TRUE; 
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EXlT(COnPUTERFAfllLARIZATION) ; 

END 
ELSE 
BEGIN 
SOU AUK; 

URITELNC  You  pressed  the  *  *  *  .KEYCHAR,  *  ’  *  keg  instead*); 
URITELNC  of  the  ” 7 ”  keg.  Lets  trg  it  again.’); 
URITELNs 

G I ERROR  :-  G I  ERROR  +  1; 

IF  G! ERROR  -  flAXGIERROR  THEN 
BEGIN 

CALLPROCT (l.GCOOE) ; 

IF  GCODE  <>  1  THEN 
EXIT (COnPUTERFAH 1 LAR I ZAT I ON) ; 

ORAUKEYBOARO: 

URI TELN; 

END; 

END; 

END 

ELSE 

BEGIN 

GOTOXY (0, 19) ; 

OK  :-  TRUE; 

URITELNC  Good!*); 

URI TELN; 

END; 

END;  («  if  «) 

END;  («  while  *) 

END;  («  find7  *) 


(*  wake  exaninee  prees  8  8  9  «) 

PROCEDURE  FIND89: 

BEGIN 

GI ERROR  i-  0; 

OK  FALSE; 

UHILE  (NOT  OK)  DO 
BEGIN 

URITEC  Press  the  8  keg  and  then  the  9’); 

I NVERSEHOOE ( TRUE , ' 8  * ) ; 
if  ghost  then 
beg  i  n 

if  gi error  >-  naxgi error  then 
kegchar  : -  *8* 

else 

kegchar  :•  ghostdigit 

end 

"  KEYCHAR: -GETCHAR ( (CHR (iCLPKEY) I  ♦  DIGITS, TRUE, FALSE, TRUE) ; 
INVERSEOOOE (FALSE, *  8* ) ; 

IF  KEYCHAR  -  CHR(HELPKEY)  THEN 
BEGIN 

CALLPROCT (l.GCOOE); 

IF  GCQOE  <>  1  THEN 
EXI T  (COMPUTERFAfllLARIZATION) ; 

ORAUKEYBOARO; 

BLANKLINES (19, 4. 19); 

END 

ELSE 

BEGIN 

KEYSTR2 (0)  :-  KEYCHAR; 

INVERSEHOOE (TRUE, *9* ) ; 
if  ghost  then 
beg  i  n 

if  gierror  >•  naxgierror  then 
kegchar  ;•  *9’ 

else 

kegchar  ghostdigit 
end 

*  KEYCHAR: -GETCHAR ( (CHR (HELPKEY)l  ♦  OIGITS.TRUE, FALSE, TRUE); 
I  NVERSEflOOE  (FALSE .  *  9  * ) ; 
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OELAY(l); 

IF  KEYCHAR  -  CHR (HELPKEY)  THEN 
BEGIN 

CALLPROCT ( 1 , GCOOE ) ; 

IF  GCOOE  <>  1  THEN 
EXIT (COMPUTERFAMILAR1ZATION) ; 

DRAUKEYBOARO; 

BLANKLINES (19, A, 19) ; 

END 

ELSE 

BEGIN 

KEYSTR2  Ill  KEYCHAR j 

BLANKL1NESU9.4.19); 

IF  KEYSTR2  -  ’89’  THEN 
BEGIN 

UR1TELN  C  Good!*); 

OK  TRUE: 

END 
ELSE 
BEGIN 
SOU AUK; 

URITELNC  You  pressed  *  .KEYSTR2 18) .  *  and  \ 
KEYSTR2  Ill , *  instead  of  8  *); 
URITELNC  and  9.  Lets  tru  it  again.’); 
GIERROR  GIERROR  ♦  1; 

IF  GIERROR  •  MAXGI ERROR  THEN 
BEGIN 

CALLPROCT (1. GCOOE); 

IF  GCOOE  <>  1  THEN 
EX I T (COMPUTERFAM I LAR I ZAT I ON) ; 
0RAUKEY80AR0; 

BLANKLINES(19,4, 19) ; 

END; 

END; 

URITELN; 

END; 

END; 

END;  (*  uhi la  *) 

END;  («  find89  «) 


(*  examinee  presses  1..6  *) 

PROCEDURE  FIND1T06; 

VAR  SKIP.BAOKEY  :  BOOLEAN; 

BEGIN 

GIERROR  8; 

OK  FALSE; 

UHILE  (NOT  OK)  DO 
BEGIN 

URITEC  Now  type  123A56  :  *); 

I  8: 

BADKEY  FALSE; 

SKIP  FALSE; 

KEYSTR6  !-  *  ’; 

REPEAT 

if  ghost  then 
begin 

if  gi error  >•  aaxgi error  then 
keychar  chr (ord( i+49) ) 

else 

keychar  ;»  ghostdigit 
end 

else 

KEYCHAR: -GETCHAR ( (CHR (hELPKEY) }  +  DIGITS, TRUE, TRUE, TRUE); 
IF  KEYCHAR  -  CWUHELPKEY)  THEN 
BEGIN 

CALLPROCT (1, GCOOE); 

IF  GCOOE  <>  1  THEN 
EX  I T (COMPUTERF AMI LAR I ZAT I  ON) ; 

ORAUKEYBOARO; 

BLANKLINES(19,A,21); 

SKIP  TRUE; 


"■  /•  .**  *v"  ■■  * ' 
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ENO 

ELSE 

BEGIN 

KEYSTR6U)  KEYCHAR; 

IF  ORO (KEYCHAR)  <>  (1+49)  THEN 
BADKEY  TRUE; 

I  I  ♦  1; 

ENO; 

UNTIL  (I  >  S)  OR  (BADXEY)  OR  (SKIP); 

IF  NOT  SKIP  THEN 
BEGIN 

BLANKLINES (19, 4, 19) ; 

IF  KEYSTR6  <>  1 123456*  THEN 
BEGIN 
SQu AUK; 

URITELNC  You  typed  '  .KEYSTR6,  ’  instead  of  123456*); 
URITELNC  Lets  try  it  again.'); 

G I  ERROR  GIERROR  +  1; 

IF  GIERROR  •  MAXGIERROR  THEN 
BEGIN 

CALLPROCT (1 ,GCOOE) ; 

IF  GCOOE  <>  1  THEN 
EX! T (COnPUTERFAHILARIZATION) ; 

ORAUKEYBOARO; 

6LANKLINES(19,4,21) ; 

END; 

ENO 

ELSE 

BEGIN 

URITELNC  Excel  lent!*); 

OK  TRUE; 

EM); 

URITELN; 

ENO; 

END;  (e  whi le  «) 

ENO:  (*  findltoG  «) 


(*  sake  examinee  find  0  on  keypad  *) 

PROCEDURE  FINDS; 

BEGIN 

GIERROR  ;-  0: 

OK  FALSE; 

WILE  (NOT  OK)  DO 
BEGIN 

WITEC  Preee  the  0  key.*); 

INVERSEflOOE  (TRUE,  *0* ) ; 

if  ghost  then 

begin 

if  gierror  >-  maxgiarror  then 
keychar  i •  *0* 

alee 

keychar  :-  ghostdigit; 

end 

alee 

KEYCHAR: -GETCHAR ( (CHR (HELPKEY) 1  ♦  DIGI TS, TRUE, FALSE, TRUE) ; 
INVERSEflOOE  (FALSE.  *0* ) ; 

IF  KEYCHAR  -  CHR (HELPKEY)  THEN 
BEGIN 

CALLPROCT (1. GCOOE); 

IF  GCOOE  <>  1  THEN 
EXI T (COnPUTERf AMILARIZATION) ; 

ORAUKEYBOARO; 

BLANKLINES (18,4, 17) ; 

ENO 

ELSE 

BEGIN 

BLANKLINES (18, 4, 18) ; 

IF  KEYCHAR  <>  *0*  THEN 
BEGIN 
SOU  AUK; 

URITELNC  You  pressed  the  ”*  .KEYCHAR,  ”  *  key  instead  of’); 


ft  W  W  »  I 
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URITELNC  ”0’’  keg.  Lets  trg  it  again.’); 
G I ERROR  G1ERR0R  +  1; 

IF  G I  ERROR  -  MAXGIERROR  THEN 
BEGIN 

CALLPROCT  (1 .GCODE) ; 

IF  GCOOE  <>  1  THEN 
EXIT  (COHPUTERFAI1ILAR1ZATION) ; 
DRAUKEYBOARD; 

BLANKLINES 118,4,17); 

END; 

END 

ELSE 

BEGIN 

URITELNI’  Good!’); 

OK  TRUE: 

END; 

URITELN; 

END; 

END;  (*  uhi le  *) 

ENO;  (*  find0  *) 


(*  find  the  yes  key  *) 

PROCEDURE  F1NDYES; 

BEGIN 

OK  FALSE; 

G I ERROR  0; 

WHILE  (NOT  OK)  00 
BEGIN 

URITELNI’  Find  the  <YES>  key  at  bottom  right.*); 

URITELNC  Oo  you  see  it?  Press  <YES>’); 

INVERSEHOOE (TRUE. CHR (YESKEY) ) ; 
i f  ghost  then 
keychar  :«  chr(yeskey) 

KEYCHAR: -GETCHAR  ( (CHR OCLPKEY) .CHR (YESKEY) .CHR(NOKEY) ] +OIGI TS. 
TRUE. FALSE. TRUE); 

INVERSEHOOE (FALSE. CHR (YESKEY) ) ; 

IF  KEYCHAR  -  CHR(HELPKEY)  THEN 
BEGIN 

CALLPROCT (1, GCOOE); 

IF  GCOOE  <>  1  THEN 
EX I T (COHPUTERFAfllLARIZATlON) ; 

ORAUKEYBOARO; 

BLANKLINES (18.4. 18); 

ENO 

ELSE 

BEGIN 

BLANKLINES (18. 5. 19); 

IF  ORO (KEYCHAR)  <>  YESKEY  THEN 
BEGIN 
SOU  AUK; 

URITELNC  Thate  not  correct.  Please  try  again.’); 

GIERROR  >-  G I  ERROR  ♦  1; 

IF  GIERROR  -  HAXG1  ERROR  TEEN 
BEGIN 

CALLPROCT (1. GCOOE); 

IF  GCOOE  <>  1  THEN 
EX I T (COTPUTERFAHI LARI ZAT I  ON) ; 

ORAUKEYBOARO; 

BLANKLINES (18.4. 18); 

END; 

ENO 

ELSE 

ok  ;«  true; 


>* 


(« 

BEGIN 

I NVERSEHOOE ( TRUE .CHR (YESKEY) ) ; 

I  NVERSEHOOE  (FALSE .  CHR  (NOKE  YD; 

GOTOXY (0. 19) ; 

URITELNC  Good.  Use  the  <YES>  key  to  ansuer’); 
URITELNC  ”yes”  to  a  question  from  the’); 


s 
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URITEC  computer.’); 

OK  TRUE; 

PSTALL (l.GCOOE) ; 

I NVERSEMOOE (FALSE. CHR  (YESKEY) ) ; 
IF  ABS(GCOOE)  <>  1  THEN 
EX  IT (COMPUTERFAM I LAR I ZAT I ON); 
IF  GCOOE  -  -1  THEN 
BEGIN 

ORAUKEYBOARO; 

GCOOE  Is 
END; 

END; 

*) 

ENDs 

END;  («  uhi la  «) 

END;  (a  find  gas  *) 


(«  find  tha  no  key  «) 

PROCEDURE  FINONO; 

BEGIN 

OK  FALSE; 

GIERROR  s-  0; 

BLANKLINES (18, 6, 19) ; 

WHILE  (NOT  OK)  DO 
BEGIN 

UR1TELN('  Use  the  <NO>  kau  at  the  bottoa  left’); 

URITELNC  to  ansuer  ’’no’*  to  a  question  froa’); 

URITELNC  the  coaputer.  Find  the  <NO>  keg  and’); 

URITEC  press  it.’); 

I NVERSEMOOE ( TRUE ,  Ofl  (NOKEY) ) ; 
i f  ghost  then 
keychar  ;-  chr (nokey) 
else 

KEYCHAR;  -GETCHAR  ( (CHR  OCLPKEY) ,  CHR  (YESKEY) ,  CHR  (NOKEY)  ]  +OIGI TS. 
TRUE, FALSE. TRUE); 

I NVERSEMOOE (FALSE. CHR (NOKEY) ) ; 

IF  KEYCHAR  -  OW(HELPKEY)  THEN 
BEGIN 

CALLPROCT (l.GCOOE); 

IF  GCOOE  <>  1  THEN 
EXIT (COMPUTERFAM! LAR I ZAT I ON) ; 

ORAUKEYBOARO; 

BLANKLINES (18.6, 18); 

END 

ELSE 

BEGIN 

BLANKLINES (18,6. 18); 

IF  ORO (KEYCHAR)  <>  NOKEY  THEN 
BEGIN 
SQUAWK; 

URITELNC  You  did  not  press  the  <N0>  key’); 

GIERROR  GIERROR  ♦  1; 

IF  GIERROR  -  MAXGI ERROR  THEN 
BEGIN 

CALLPROCT (l.GCOOE); 

IF  GCOOE  <>  1  THEN 
EXI T  (COMPUTED  AMILARIZATION) ; 

ORAUKEYBOARO; 

BLANKLINES (18.6, 18); 

ENO; 

END 

ELSE 

BEGIN 

OK  ;-  TRUE; 

ENO; 

END; 

ENO;  (*  uhi  le  *) 

ENO;  (*  find  no  s) 
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PROCEDURE  USERERASE (STR,  NEW  STR  i  STRING): 

BEGIN 

GOTOXY (0,21) : 

URITEC  TYPE  1  .STRI1I  .STRI2)  .STR  13)  ) 5 

GOTOXY (6. 22); 

FOR  I  1  TO  3  DO 
BEGIN 

if  ghost  then 
Keychar  :•  etrli) 

*  KEYCHAR  GETCHARI  [STR  II) ). TRUE, TRUE. TRUE) : 

END; 

BLANKLINES (21. 1.21); 

URITEC  Now  erase  the  ’,STR(3],’  by  preseing  <ERASE>’); 

I NVERSEMOOE ( TRUE . CHR (ERASEKE  Y) ) ; 

GOTOXY (9, 22); 
if  ghost  then 
keychar  :•  chr (erasekey) 

*  KEYCHAR  GETCHAR ( ICHR (ERASEKEY)] . TRUE. FALSE. TRUE) ; 

I NVERSEMOOE (FALSE . CUT  (ERASEKEY ) ) ; 

GOTOXY (8. 22); 

URITEC  ’); 

BLANKLINES (21 , 1 , 18) : 

URITELNC  Good.  To  correct  a  mistake,  erase  it’); 

URITELNC  and  type  the  correct  key.  Now  replace  ’); 

URITELNC  *  .STR12] , '  with  a  ’  .NEU_STRI1) ,  ’  by  pressing  <£RASE>  then  ’ 
NEU_STR  II] ) ; 

I NVERSEMOOE ( TRUE . CHR (ERASEKEY ) ) ; 

GOTOXY (8. 22); 
i f  ghost  then 
keychar  ;«  chr (erasekey) 

KEYCHAR : -  GETCHAR ( ICHR (ERASEKEY ) ] , TRUE . FALSE . TRUE ) ; 

I NVERSEMOOE (FALSE . CHR (ERASEKEY) ) : 

GOTOXY (7. 22); 

URITEC  ’); 

I  NVERSEMOOE  ( TRUE,  NEUJSTR  111) ; 

GOTOXY (7. 22); 
i f  ghost  then 
keychar  neustrll) 

*  KEYCHAR;-  GETCHAR ( INEU_STR [111 .TRUE, TRUE, TRUE) ; 

I  NVERSEMOOE  (FALSE ,  NEUJSTR  Ill); 

BLANKLINES (18.8. 21); 

END;  («  Usererase  *) 


PROCEDURE  ALPHA _BOARD; 
BEGIN 

PAGE (OUTPUT) ; 

GOTOXY  (0,2); 


URITELNC 

&M 

tu 

444 

444 

444 

’); 

URITELNC 

1  A  | 

1  B  | 

1  c  | 

1  o  1 

1  E  | 

’); 

URITELNC 

m 

444 

(U 

w 

444 

END;  (*  ALPHA _BOARO  e) 


PROCEDURE  ALPHA  GEN  INSTR; 

BEGIN 

GOTOXY (0,8); 

URITELNC  Just  to  the  left  of  the  number  keys’); 
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URITELNC  are  five  keys  labeled  A,  B,  C,  0,  E.’); 
UR! TELN; 

URITELNC  You  will  use  these  keys  to  enter')t 
URITELNC  your  ansuers  on  certain  tests.’); 

END;  («  ALPHA  JGENJNSTR  *) 


PROCEDURE  ALPHA  KEY  PRESSES; 

VAR  CH,  KEY_CH  7  CHAR; 

BEGIN 

FOR  CH  ’A’  TO  ’E’  00 
BEGIN 

BLANKLINES (15, 1,15) ; 

URITELNC  Nou,  find  the  *,CH,*  key  and  press  it!*); 
I NVERSEMOOE ( TRUE , CH ) ; 
if  ghost  then 
keychar  :•  ch 

*  KEYCHAR  GETCHAR(  ICH]  .TRUE, FALSE,  TRUE) ; 

I  NVERSEriOOE  (FALSE ,  CH) ; 

END; 

PACE (OUTPUT) ; 

END;  (»  ALPHA _KEY_PRESSES  e) 


PROCEDURE  ALPHA  FAMILARIZATION; 

VAR 

GJtRRAY  ;  PACKED  ARRAY (0..01  OF  5.. 6; 
BEGIN 

(*  Turn  Cursor  Off  «) 

G_ARRAY  (0)  6; 

UNI  TUR1 TE  (1 .  G_ARRAY .  1 , .  12)  ; 


ALPHA  _BO ARC; 
ALPHA_GEN  INSTR; 
ALPHA_KEYJ>RESSES; 


(*  Turn  Cursor  On  *) 

G_ARRAY  10)  5; 

UNITURITE(1.G_ARRAY,1,,12); 

END;  (*  ALPHA_FAf1ILARIZATI0N  s) 


(«  ask  if  wants  instructions  again  *) 

PROCEDURE  PROMPT ; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY (0, 10) ; 

URITELNC  Do  you  want  to  practice  using  the’); 
URITEC  computer  again?  ’); 
i f  ghost  then 
keychar  ;•  chr (nokey) 

*  KEYCHAR :-GETCHAR (KEYPAD, TRUE, TRUE. TRUE); 
BLANKLINES (18, 2, 18); 

IF  ORO (KEYCHAR)  -  NOKEY  THEN 
BEGIN 

CALLPROCT (1 .GCOOEI ; 

IF  GCOOE  <>  1  THEN 
EXIT (COnPUTERFAIULARIZATION) ; 

END; 

END;  («  prompt  *) 


66 
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(m  introduce  the  help  key  *) 

PROCEDURE  LOCHEIP; 
var  etallchar  :  char; 

I.J  :  integer: 

8EGIN 

DRAUKEYBOARD: 

BLANKLINES (17,7, 18) ; 

URITELNC  Finally,  find  the  <HELP>  key  at  the*); 

URI  TELNC  top  of  the  keyboard.*); 

URITELNC  Uhen  you  need  help,  preee  this  key’); 

IB1TELNC  to  call  the  proctor.  '); 

URITELN; 

URITEC  Preee  the  <HELP>  key  non.  *); 
repeat 

1 NVERSEMOOE  ( TRUE . OB (HELPKEY) ) ; 
i f  ghost  then 

etallchar  chr(helpkey) 

else 

eta  1 1  char 

getchar ( fchr (he Ipkey) ,  chr (yeskey) ,  chr (esc) ) , true, true, true) ; 
I NVERSEMOOE (FALSE. CHR (HELPKEY) ) ; 
blankl  ines(17,7,28) ; 
if  etallchar  <>  chr(helpkey)  then 

uriteC  Try  again...  Press  the  <HELP>  key.  ’) 
else 
begin 

uri te(*  Very  good!*); 

DELAY (4); 
end: 

until  etallchar  •  chr (helpkey) ; 

I NVERSEMOOE (FALSE. CHR (YESKEY) ) ; 

IF  ABS(GCOOE)  <>  1  THEN 
EXI T (COMPUTERFAMI LARIZATION) ; 

GCOOE  1; 

END;  (e  lochelp  *) 


BEGIN  («  computer  fami larization  *) 

GCOOE  1; 

DONE  FALSE; 

REPEAT 

ORAUKFVBOARO; 

URITELNC  Uelcome.  Here  are  some  instruct i one’); 
URITELNC  on  hou  to  uee  the  test  computer.'); 
URITELNC  First,  notice  the  numeric  keypad  '); 
URITELNC  on  the  far  right  of  the  keyboard.’); 
URITELN; 

FIN07; 

FIN089; 

FIN01T06; 

FINDS: 

FIND YES; 

FINONO; 

(m 

USERERASE (’123' , ’7’ ) ; 

USERERASE ( ’ 789' , ’ 4' ) ; 

USERERASE  C987’, ’2’); 

*) 

ALPHA_F AM! LARIZATION; 

LOCHELP; 

(m 

PAGE (OUTPUT); 

GOTOXY (8, 13) ; 

URITEC  Oo  you  understand  everything  so  far?  ’); 
i f  ghost  then 
keychar  :•  chr (yeskey) 
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KEYCHAR;  -GETCHAR  ( ICHR  (NOKEY)  .CHR(YESKEY) ] .  TRUE. FALSE,  TRUE) : 
IF  ORO(KEYCHAR)  -  NOKEY  THEN 
PROMPT 
ELSE 

DONE  i-  TRUE i 

*) 

done  true; 

UNTIL  DONE; 

END;  (*  computer  faai far ization  «) 
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(* 
I* 
(* 
(» 


nnwxrmti  a  «  »»»««»«) 
*) 

TFILES  *) 

CATOATA  *) 


Textf  i le  :  AOMIN.OIR/A.LOGIN.TEXT  Volume 

Codefile  :  AOMIN. CODE  (’Include’  file)  Volume 


(«  e) 

(*  File  Last  Modified  :  Oct  7,1983  NPROC  *) 

( sssssmssemssssstsMrxss*  «■»»-*»♦«»*■»«»***««*■»»««*  **»»»*■»»■«■>  »m««r*»»») 


(*  get  personal  data  and  info  froa  examinee  *) 

(«  set  up  variables  to  handle  returning  or  *) 

(*  neu  examinees.  *) 

SEGMENT  PROCEDURE  LOGIN: 

VAR  LOGTRY 

LCOOE  :  INTEGER:  (*  controls  flou  in  this  module  m) 
LOG INOX. ST A YOK  :  BOOLEAN; 


(*  get  directory  index  for  an  id  number  m) 

(*  returns  nil  if  no  such  id  exists.  *) 
FUNCTION  D I R I NOEXNUM ( I DNUM  :  IOTYPE)  »  INTEGER; 
VAR  I  :  INTEGER; 

DONE  :  BOOLEAN: 

BEGIN 

LOAD INDEX; 

I  :  ■  0 ; 

DONE  FALSE; 

OIRINQEXNUM  NIL; 

REPEAT 

IF  (DIRm.IO  -  IONUM)  ANO 
(NOT  (0 1 R III. UNUSED))  THEN 
BEGIN 

DONE  TRUE; 

DIR  I NOEXNUM  I; 

END; 

I  t-  I  ♦  1; 

UNTIL  (I  >  NAXEXAM1NEE)  OR  (DONE); 

END;  (*  dirindexnum  *) 


PROCEDURE  READGTICTA; 

(e  read  as  string  ->  integer  ->  real  •) 
VAR 

REALSTR; STRING; 

NUM.DEC.DIG. I .SIZE; INTEGER; 

NEG: BOOLEAN; 

BEGIN 


NEG: -FALSE: 

READLN (REALSTR); 

IF  POS(’-\ REALSTR)  >  0  THEN 
BEGIN 

DELETE (REALSTR. 1,1); 

NEG: -TRUE; 

END; 


DEC  :-P0S<’.\  REALSTR); 

OELETE (REALSTR. DEC. 1); 

SIZE: -LENGTH (REALSTR ) ; 

OIG:-0; 

FOR  1 1-1  TO  SIZE 
DO  BEGIN 

NUM:-0R0 (REALSTR (ID  -  48; 
DIG:-NUM  + (DIG  *  10); 

END; 


GTHETA:-OIG; 

DEC: -SIZE  -(OEC-1); 
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FOR  I : — 1  TO  OEC 
00  GTHETA:-GTHETA/10| 

IF  NEC  THEN  GTHETA:-  (-1  «  GTHETA); 
ENO;  («  REAOGTHETA  *) 


PROCEDURE  GHOST MENU; 

VAR 

CHOICE: INTEGER: 

BEGIN 

TEXT80nOCE; 

INVERSE: 

URITE  (OR  (28)): 

GOTOXY (12,4) : 

UIR I  TEC  GHOST  OPTION  MENU’): 

GOTOXY (8, B): 

URITEC1.  RANDOM  NUMBER  GENERATOR  GHOST') j 
GOTOXY (8. 8): 

URITEC2.  SINGLE  ABILITY  LEVEL  SIMULATION  GHOST*); 
GOTOXY (8. 10); 

URITEC3.  AUTOMATIC  LOOP  OF  ABILITY  LEVELS  GHOST*); 
GOTOXY (8. 12); 

URITE  CENTER  CHOICE  U  :*); 

REAOLN (CHOICE); 

TEXT40MOOE; 

GHOSTFLOU:- CHOICE; 

IF  GHOSTFLOU  -  SINGLE  Tt€N 
BEGIN 

URITE  (CHR(28) ) ; 

GOTOXY (1,12); 

URITE  CENTER  A  VALUE  FOR  THETA  ;*); 

REAOGTHETA; 

ENO; 

ENO;  (a  GHOSTftNU  *) 

(*  get  examinee  id  number  a) 

PROCEDURE  ENTERIC; 

VAR  OK ID  :  BOOLEAN; 

IDSTR  :  STRING; 

K  :  INTEGER; 

BEGIN 

IDSTR  ’  *; 

(KID  :-  FALSE; 

REPEAT 

PAGE (OUTPUT); 

F1LLCHAR(LINEBUFC0]  ,9,*  *); 

GOTOXY (1,10); 

lf)I  TEC  Press  <YES>  when  you  are  dona  entering’); 
GOTOXYU.U); 

URITE (’your  nueber.’); 

GOTOXY (1.5); 

URITECEnter  your*); 

GOTOXY (26.8) ; 

URITEC - ’); 

GOTOXY (1,6); 

URITE(*Social  Secur i ty  Nueber  :  ’); 

(a  read  in  9  digit  eocial  security  number  a) 
if  ghost  then 
beg  i  n 

IF  GHOSTFLOU  -  AUTO 

THEN 

BEGIN 

URI  TECGHOSTAUTO’ ) : 

IF  ABLOOP  -  MAXGTHETA 
THEN  ABLOOP:-  MING THETA 
ELSE 

ABLOOP:-  SUCC (ABLOOP) i 
EM) 

ELSE  IF  GHOSTFLOU  -  SINGLE 
THEN  URI TE C GHOSTSING’ ) 
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ELSE 

wri  te  (’GHOST*  h 
de lag (2) ; 
exi t (enter  id) ; 
end 

*  PFILLBUF (9. DIGITS  +  t’RVA\’C’.’G’.’H’.’S\’T’.’0’,’EVnV0\’Y’] 

TRUE,2,LC(X)E) ; 

IF  LCOOE  -  1  THEN 
BEGIN 

MOVELEF  T  (L I NEBUF  (81 .  EX  ATI  I  NEE .  1 0 103 . 9) ; 

IF  EXAfllNEE. 10  -  ’  *  THEN 

SOU AUK 
ELSE 

0K10  TRUE: 

END 

ELSE 

BEGIN 

IF  LCOOE  <>  -1  THEN 
BEGIN 

(*  exaeinee  leaves  before  log  in  of  id  U  then  session  is  invalid  *) 
FL0UC00E  2; 

OEDOFLAG  :•  TRIE; 

EXIT (LOGIN) ; 

END; 

LCOOE  1; 

END; 

UNTIL  OKIO; 

FILLCHARILINEBUF (0) .9, ’  ’); 

FOR  X  s-  1  TO  9  00 

IDSTRDC)  :«  EXAMINEE.  10 CK-1) : 

(*  set  flag  if  deao  «) 

IF  POST  DEMO’ ,  IOSTR)  <>  0  THEN 
DEMOFLAG  TRUE 
ELSE 

OEMOFLAG  s-  FALSE; 

IF  POSC GHOST’ ,  IOSTR)  <>  8  THEN 
BEGIN 

GHOST  s-  TRUE; 

GHOSTMENU; 

SKIPFAfl;-  TRUE; 

END 

ELSE 

GHOST  s-  FALSE; 

IF  POSC  TRACE’.  IOSTR)  <>  0  THEN 
TRACE  s-  TRUE 
ELSE 

TRACE  i-  FALSE; 

IF  POSf’STAY*.  IOSTR)  <>  0  T)CN  (*  Debug  routine,  prograe  reaains  in  row  *) 
STAY  :•  TRUE  (*  Uncoeeent  routines  in  A. QUEST  to  use  e) 

ELSE 

STAY  FALSE; 

END;  (e  enter  id  e) 


(*  give  instructions  «) 

PROCEDURE  LOG INSTRUCT  IONS; 

BEGIN 

(«  loop  until  dont  uant  instructions  again  *) 
REPEAT 

(«  set  flou  to  noreal  e) 

LCOOE  ■-  1; 

(*  log-in  instructions  e) 

PAGE (OUTPUT) ; 

GCTOXY  (18, 1 ) ; 
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ItflTECLOG-IN  INSTRUCTIONS’): 

GOTOXY10.3); 

URITELNI’  The  coaputer  will  ask  you  for  your’); 

URITELNC  Social  Security  Nuaber.*); 

UR1TELN; 

URITELNC  At  that  ties  type  in  your*): 

URITELNC  Social  Security  Nuaber  and  press’): 

URITELNC  the  <YES>  key  after  the  Social*): 

URITELNI’  Security  Nuaber  is  entered.’): 

URITELN: 

(e  URITELNC  If  you  aake  a  aistake  typing,*): 

URITELNC  use  the  <ERASE>  key  to  correct*): 

URITELNC  the  error.’): 

URITELN:*) 

URITELNC  Reaeaber  to  press  the  <YES>  key  after’); 

URITELNC  entering  your  Social  Security  Nuaber.’); 

URITELNC  Call  the  proctor  if  you  have  any’); 

URITELNC  questions.’); 

URITELN; 

URITEC  To  continue.*); 

PSTALLI2.LC00E) : 

IF  ABSILCOOE)  <>  1  THEN 
BEGIN 

FLOUCOOE  ABSILCOOE): 

EXITILOGIN); 

END; 

UNTIL  LCOOE  -  1; 

END;  I*  Log  instructions  *) 

BEGIN  I*  log  in  *) 

LOGINS TRUCTIONS; 

LOGTRY  0; 

REPEAT 

LOGINOK  :■  TRUE; 

LCOOE  1; 

I*  initialize  tine  buffer  a) 

FILLCHARILINEBUF  [0]  ,79, ’  ’), 

ENTERID:  I*  get  id  nuaber  *) 

GOTOXYU3.22) : 

URITE  CP  lease  uait  ’); 

IF  STAY  THEN 
BEGIN 

STAYOK: -FALSE; 

REPEAT 

URITEICHRI28)); 

GOTOXY 10,10) ; 

URITECENTER  THETA  ROU  VALUE  (1  TO  36)  :’); 

REAOLNILEVEL); 

IF  ILEVEL  >  36)  OR  (LEVEL  <  1)  T>€N 
URITEICHRI7)) 

ELSE 

STAYOK  i-TRUE; 

UNTIL  STAYOK; 

END; 

I*  this  is  a  deao  *) 

IF  (OEMQFLAG)  or  (ghost)  OR  (TRACE)  OR  (STAY)  T)€N 
BEGIN 

OEMOFLAG  TRUE; 

ERECNUM  0; 

TINOEX  0; 

NEUEXAMINEE  TRUE; 

TNUM  0; 

EXAMINEE. TESTLENGTH  SP ARAMS. SUBLENGTH ; 

EXITILOGIN); 

END; 

ERECNUM  :-  OIRINOEXNUM (EXAMINEE. 10) ; 
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IF  (ERECNUM  >-  0)  THEN  («  exaainee  has  been  entered  into  eyetea  a) 
BEGIN 

LOADEXAfllNEE  (ERECNUM) : 

IF  (EXAMINEE . LASTTEST  <  GHAXSU8TEST)  and  (not  ghost)  THEN 
BEGIN 

NEUEXAMINEE  FALSE; 

(a  setup  exaainee  to  resuae  old  test  a) 

(a  set  index  into  configuration  array  where  last  left  off  a) 
TINDEX  EXAMINEE. LASTTEST; 

(a  set  next  place  to  store  results  record  a) 

TNUn  :■  ERECNUM  a  GMAXSUBTEST  +  TINDEX; 

(a  toad  in  previous  results  of  unfinished  test  a) 
LOAORESULTS(TNUM); 


IF  (EXAMINEE. LASTTEST  -  GMAXSUBTEST)  THEN 
BEGIN 

NEUEXAMINEE  TRUE; 

(a  save  the  exaainee's  configuration  a) 

UITH  EXAMINEE  DO 
BEGIN 

TESTORDER  SPARAMS. SUBORDER; 

SUBSTOP  SPARAMS. SUBSTOP; 

CKERROR  SPARAMS. CXERROR; 

TESTLENGTH  SPARAMS. SUBLENGTH; 

STRATEGY  SPARAMS. SUBS TRAT; 

DATE  SYSTEMDATE; 

END; 

(a  set  the  logical  record  nuaber  to  store  results  on  disk  a) 
TNUM  ERECNUM  a  GMAXSUBTEST; 

(a  set  the  index  into  configuration  arrays  a) 

TINDEX  0; 

(a  update  exaainee  record  on  diek  a) 

UPOATEEXAM 1 NEE (ERECNUM) ; 

(a  update  exaainee  directory  a) 

UPOATEINOEX; 

END 

ELSE 

BEGIN 

FLOUCOOE  : -  6:  (a  exaainee  done,  dont  give  session  a) 

DEMOFLAG  TRUE; 

G0T0XYU3.22); 

URITEC  *); 

GOTOXY (0, 13) ; 

URI TELN; 

URI TELN; 

URITELNC  This  exaainee  done  with  session  already.’); 

URI TELN; 

URI TELN; 

SQUAUK; 

STALL; 

END; 

END 

ELSE 

BEGIN 

G0T0XY(13,22) ; 

URITEC  ’); 

GOTOXY (0,13); 

URI TELN; 

URI TELN; 

URITELNC  Access  for  ’  .EXAMINEE.  ID,  ’  not  verified.’); 

URI TELN; 
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URITELN; 

SOU AUK; 

STALL; 

LOCINOK  FALSE; 
LOGTRY  LOGTRY  +  1; 
LCOOE  1; 

IF  LOGTRY  >  3  THEN 
CALLPROCTOR(2,LCOOE); 
IF  LCOOE  >-  3  THEN 
BEGIN 

IF  LCOOE  -  3  THEN 
FLOUCOOE  S; 

EXIT (LOGIN); 

ENO; 

ENO;UNTIL  LOGINOtC; 
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(««««*«»«»»*»»********»********>***«*»«**«***«««»» 

I*  *) 

(«  Textfile  :  ADMIN. DIR/A. GI . TEXT  Volume  :  TFILES  «) 

(•  Codefile  :  AOMIN. COOE  (’Include*  file)  Volume  :  CATQATA  *) 

(*  *) 

(«  File  last  modified  :  Jun  15,  1983  NPROC  *) 

I  ***********»*«*■»«**«*.*««««•»«•*■»««»<>«*»«*»  AS  »»«»»»»' 


(*  give  test  taking  information  *) 
SEGMENT  PROCEDURE  GENERAL  I NSTRUCT I  DNS ; 
VAR  ANSWER, 

KEYCHAR  :  CHAR: 

GCOOE  :  INTEGER: 

DONE  :  BOOLEAN: 


(*  ask  if  wants  instructions  again  e) 
PROCEDURE  PROMPT; 

BEGIN 

PAGE (OUTPUT) : 

GOTOXY (8, 10) ; 

URITELNC  Do  gou  uant  to  go  through  the'); 
URITEC  instructions  again?  ’); 
if  ghost  then 
kegchar  :■  chr (nokeg) 

*  KEYCHAR: -GETCHAR (KEYPAD, TRUE. TRUE. TRUE) : 
BLANKLINES(18,2, 18) ; 

IF  ORD (KEYCHAR)  -  NOKEY  THEN 
BEGIN 

CALLPROCTd,  GCOOE): 

IF  GCOOE  <>  1  THEN 
EXI T (GENERAL  I NSTRUCT IONS) : 

ENO; 

END;  (*  prompt  *) 


(*  test  taking  info  *) 

PROCEDURE  TINFOl ; 

BEGIN 

PAGE (OUTPUT): 

GOTOXY (9,1); 

URITELNC  HOU  TO  TAKE  THE  TESTS'); 

URITELN; 

URITELNC  Most  of  the  questions  on  the  tests  are'); 

URITELNC  multiple  choice,  that  is...  there  Mill’); 

URITELNC  be  a  question  folloued  bg  a  list  of  ’); 

URITELNC  choices.  For  example. ...’); 

URITELN: 

URITEC  Hou  many  eggs  are  there  in  a  dozen?’); 

GOTOXY  (15, 11); 

URITEC  A.  18'); 

GOTOXY (15. 13); 

URITEC  B.  IB’); 

GOTOXY (15, 15); 

URITEC  C.  12'); 

GOTOXY (15. 17); 

URITEC  0.  24'); 

GOTOXY (8, 19); 

REPEAT 

URITEC  Your  answer  :  '); 
if  ghost  then 
answer  ’C’ 
else 

ANSUER : -GETCHAR ( ( ' A ' . . ' 0 ' I , TRUE , TRUE , TRUE ) ; 

URITELN: 

URITELN; 

IWITEC  Is  ’’'.ANSUER,'”  the  answer  gou  want  to  give?  ’); 
if  ghost  then 
kegchar  :•  chr(geskey) 

else 
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KEYCHAR: -GET CHARI  ICHR (YESKEY) .CHR (NOKEY) ] . TRUE. FALSE. TRUE) j 
IF  ORO (KEYCHAR)  -  NOKEY  THEN 
BLANKLINES (19, 3. 19); 

UNTIL  ORD (KEYCHAR)  -  YESKEY; 

BLANKLINES (21, 1.21); 

IF  ANSWER  -  *C*  THEN 
URITELNI*  Thats  right.*) 

ELSE 

URITELNI*  The  correct  aneuer  le  C.’); 

URITELN; 

PSTALL(l.GCOOE); 

IF  ABS(GCOOE)  <>  1  THEN 
EX  I T (GENERAL  I NSTRUCT IONS); 

GCODE  1; 

ENO;  («  tinfol  «) 


I*  nore  test  taking  info  «) 

PROCEDURE  TINF02; 

BEGIN 

PAGE (OUTPUT); 

URITELN; 

URITELNI*  Here  ie  another  exaeple.. ....*); 

URITELN; 

URITELN; 

URITELN; 

URITELN; 

URITELN; 

URITEI'  Uhat  ie  tuo  plue  two?'); 

GOTOXYUS,  18) ; 

URITEI’  A.  Eight’); 

G0T0XYU5, 12) ; 

URITEI*  B.  Four*); 

GOTOXYUS.  14); 

URITEI*  C.  Eleven’); 

GOTOXYUS.  16) ; 

URITEI*  0.  Tuenty’ ) ; 

GOTOXY (8,21) ; 

REPEAT 

URITEI*  Your  aneuer  t  *); 
if  ghoet  then 
aneuer  : -  ’A* 
elee 

ANSUER: -GETCHAR I C A* . . *0’ 1 . TRUE, TRUE. TRUE) ; 

URITELN: 

IfllTELN; 

URITEI*  Ie  ’".ANSUER,”’  the  aneuer  you  uant  to  give?  ’); 
i f  ghoet  then 
keychar  chrtyeekey) 

*  KEYCHAR  GETCHAR I  ICHR I YESKEY) .CHRINOKEY)] .TRUE, FALSE. TRUE) ; 

IF  ORO  I  KEYCHAR)  .  NOKEY  THEN 
BLANKLINES  121, 3, 21) ; 

UNTIL  ORO (KEYCHAR)  -  YESKEY; 

BLANKLINES (21, 3. 21); 

IF  ANSUER  -  *B*  TfCN 
URITELNI*  Thate  right.’) 

ELSE 

URITELNI’  The  correct  aneuer  ie  B.’); 

URITELN; 

PSTALLU.GCOOE); 

IF  ABSIGCOOE)  <>  1  T)€N 
EXI T (GENERAL  INSTRUCTIONS) ; 

GCODE  :•  1; 

ENO;  I*  tinfo2  *) 


BEGIN  («  general  instruct iona  *) 
GCOCE  1; 

OONE  : -  FALSE; 

REPEAT 

TINF01; 
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TINF02; 

PAGE (OUTPUT) s 
GOTOXY  (0, 13) ; 

UR! TEC  Oo  you  understand  everything  so  far?  *); 
i f  ghost  then 
keychar  :■  chr(yeskey) 

*  KEYCHAR: -GETCHAR ( (CHR (NOKEY) , CHR ( YESKEY) ) , TRUE. FALSE, TRUE) ; 
IF  ORO (KEYCHAR)  -  NOKEY  THEN 
PROMPT 
ELSE 

DONE  TRUE: 

IF  DONE  THEN 
BEGIN 

PAGE (OUTPUT): 

GOTOXY  (0,9) ; 

URITELNC  This  is  the  end  of  your  computer*); 

URITELNC  introduction.  If  you  still  are  not*): 

URITELNC  coefortable  with  the  keyboard  or  the'); 

URITELNC  instructions,  pleass  see  the  proctor’); 

URITELNC  for  assistance.  Thank  you.  * ) ; 

URITELN; 

URITEC  To  continue,’); 

PSTALL (1 .GCOOE) ; 

IF  ABS (GCOOE)  <>  1  THEN 
EX I T (GENERALI NSTRUCT IONS) ; 

GCODE  s-  1; 

PAGE (OUTPUT) ; 

GOTOXY (0.G); 

URITELNC  You  should  have  scratch  paper  and  a’); 

URITELNC  pencil  for  any  figuring  you  need  to’); 

URITELNC  do.  Return  the  scratch  paper  uhen’); 

URITELNC  you  finish  the  test.’); 

URITELN: 

URITELNC  If  another  pencil  or  eore  paper  ie’); 

URITELNC  needed  during  the  test,  use  the’); 

URITELNC  <)CLP>  key  to  call  the  proctor.*); 

URITELN: 

PSTALL (1. GCOOE); 

IF  ABS (GCOOE)  <>  1  THEN 
EXIT (GENERAL  INSTRUCTIONS) ; 

ENO; 

UNTIL  DONE; 

END;  (*  general  instructions  *) 
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Text f i le  :  ADDIN.DIR/A. INI TE. TEXT  Voluee  :  TFILES 

Codefile  :  ADDIN. COOE  (’Include*  file)  Voluee  s  CATDATA 


DEC.  1,  1982 


(«  This  procedure  initializes  the  exaeinees  test  result  record  and  *) 

(«  takes  into  account  i f  he  is  a  neu  exaeinee  or  a  returning  *) 

(*  exaeinee.  *) 

SEGDENT  PROCEDURE  INITEXADINEE; 

BEGIN 

(*  initialize  pool  of  previously  used  questions  e) 

FOR  QNUT1  0  TO  QUESTIONS  DO 
USEOQIQNUD]  NIL; 

(«  turn  prefetching  off  for  the  first  question  either  for  returning  to  a  ») 
(*  subtest  or  starting  a  the  beginning  of  a  neu  subtest.  *) 

FIRSTQUESTION  TRUE: 

SADPLEQUEST I  ON  FALSE; 

(«  set  flag  for  tiaed  teats,  tie#  not  expired  get  e) 

TIMEOUT  FALSE; 

(*  neu  exaeinee  is  first  ties  they've  logged  in  *) 

IF  NEUEXADINEE  THEN 
BEGIN 

INITSCORES  TRUE; 

(«  set  ell  parameters  to  today's  set  up  •> 

CURRSTRAT  SPARAMS.SUBS7RAT IT INDEX) ; 

CURRTLENGTH  SP ARAMS. SUBLENGTH  IT INDEX) ; 

CURRSUBSTOP  SPARAMS. SUBSTOP ITINOEX) ; 

CURB TEST  SPARAMS. SUBORDER  IT INDEX] ; 

END 

ELSE 

BEGIN  («  exaeinee  previously  logged  in,  returning  to  coeplete  tests  e) 

(e  reset  pool  of  used  questions  that  exaeinee  hae  taken  already  •) 

IF  NOT  INITSCORES  THEN 
BEGIN 

QNUT1  t.  -1; 

REPEAT 

GNUn  QNUT1  ♦  1; 

USEDQIQNUM]  i-  TESTS. I TEMINFO (QNUD1 . 1 TEfWUM; 

UNTIL  (USEDQIQNUM]  <  0)  OR  (QNUH  >-  QUESTIONS); 

EM); 

(*  reset  exaelnee’e  last  ability  and  variance  *) 

CURRABILITY  TESTS. ESTABILITY; 

CURR VARIANCE  ;.  TESTS. VARIANCE; 

(a  reset  elasped  ties  if  tiaed  subtest  a) 

ELASPEDTIHE  «-  EXAMINEE. PREVTITELASTTEST; 

(«  reset  all  paraaeters  set  up  for  this  exaeinee  «) 

CURRSTRAT  EXAMINEE. STRATEGY  IT  I NOEXJ ; 

CURRTLENGTH  «-  EXAMINEE. TESTLENGTH IT  INDEX) ; 

CURRSUBSTOP  EXAMINEE. SUBSTOP  IT INDEX I ; 

CURRTEST  EXAMINEE. TESTOROER  IT  INDEX] ; 

(e  if  test  i tee  count  is  zero,  exaeinee  is  returning  to  the  •) 

(a  beginning  of  a  eubtest  and  oust  initialize  the  test  score  s) 

IF  TESTS. NUM I  TEDS  <-  0  THEN 
INITSCORES  TRUE; 


iVi 
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END  i 

(a  if  exaainee  returns  to  Middle  of  eubtest,  don't  ini t i a 
(*  his  test  results  record. 

IF  INI TSCORES  THEN 
BEGIN 

CURRABILITY  :•  0;  («  initialize  exaainee  ability  a) 

(«  initialize  exaainee  variance  *) 

CURR VARIANCE  1.0; 

(a  initialize  stopwatch  for  tiaed  testa  a) 

ELASPEDTIME  0; 


(«  initialize  Dli  teas  taken,  (((correct  «) 

TESTS. NUMCORR  s-  0; 

TESTS. NUMITEMS  0; 

TESTS. STPROCTCALLS  s-  0; 

(a  mark  all  i tea  codes  nil  <unused>  •) 

FOR  ONUM  0  TO  QUESTIONS  DO 

TESTS. I TEHINFO  CQNUM] . I TEMNUM  NIL; 

(«  initilize  array  index  for  current  question  a) 
ONUM  8; 

END; 

END;  (a  initexaainee  a) 


I i ze  a) 

a) 
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<*  ») 

(*  Textfile  :  ADMIN. DIR/A. LOAOT. TEXT  Voluee  :  TF1LES  e) 

(«  Codefile  :  AOMIN. CODE  (‘Include’  file)  Voluee  t  CATDATA  *) 

<*  *) 

(•File  last  modified  :  OCT  18.  1983  NPROC  *) 

<«««««  sesJresunrxssmmeeegestsrsirMUrssssssssasssstsssicitemcmesxexfSfe-xexxffrTm') 


(«  loads  directory  of  test  ,  loads  appropriate  data  structure  for  *) 
(*  strategy  if  any,  gives  instructions  and  saeples  for  subtest.  *) 

SEGMENT  PROCEDURE  LOADTEST; 


CONST  MAXSQERROR  -  3;  («  maximum  U  errors  in  saeples  before  calling  proctor  *) 


VAR  QCOUNT, 

I. 

HASH.OC, 

BLOCK. 

BLOCKPTR, 

SCOOE. 

SECS. 

SQERROR 

TIMECOOE. 

TEXTCOOE, 

RCHAR 


(*  U  of  questions  on  euitiple  question  screen  *) 

(»  record  U  of  data,  block/byte  ptrs  «) 

(*  which  block  text  starts  *) 

(«  which  byte  in  block  text  starts  •) 

(*  flow  control  in  this  module  c) 

(*  seconds  for  timed  tests  •) 

:  INTEGER:  (*  U  of  key  errors  in  samples  questions  *) 

(»  specifies  screen  format  *) 

:  CHAR: 


(«  answer  the  sample  questions  *) 

PROCEDURE  ANSUERSAMPLE; 

VAR  CHIANS  i  CHAR; 

QACOUNT. 

INTANS  :  INTEGER: 

S7ANS  :  SEVEN TYPE; 

OK  :  BOOLEAN: 

BEGIN 

(*  ansuer  type  «) 

CASE  I TEMINFO. ATYPE  OF 

(«  multiple  choice  ») 

CHARVALUE  :  BEGIN 

(m  get  ansuer  *) 

CHRANS  :-  GETCHRANSUER(3,SC00E); 

(•  scode  <>  1,  proctor  was  called  *) 

IF  SCOOE  <>  1  THEN 
EX  IT (ANSUERSAMPLE): 

(*  sample  feedback  «) 

IF  CHRANS  -  I TEMINFO. ANSUER  THEN 
BEGIN 

BLANKLINES (23, 1,23): 

URITEI’Thats  correct!  ’): 

STALL: 

END 

ELSE 

BEGIN 

(*  count  U  of  wrong  key  ins  *) 

SQERROR  8: 

REPEAT 

BLANKLINES (21, 3, 21): 

URITELNCThe  correct  answer  is  ’, 

I TEMINFO. ANSUER,’  not  ’.CHRANS): 

UR1TELN; 

URI  TEC  Type  ’,  I  TEMINFO.  ANSUER, 

’  on  your  keypad  :  ’ ) : 
if  ghost  then 
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chrane  i -  i teeinfo. ansuer 

else 

CHRANS  !- 

GETCHARt  IITEMINFO.LOUANSUER. . ITEM INFO. HI GHANStER] , 
TRUE. TRUE. TRUE) s 

IF  CHRANS  <>  ITEMINFO. ANSUER  THEN 
BEGIN 

SQERROR  j-  SQERROR  ♦  1; 

IF  SQERROR  -  MAX SQERROR  THEN 
BEGIN 

(e  call  proctor  if  refuses  to  press  right  key  *) 
CALLPROCT (3 , SCQOE ) j 
IF  SCOOE  <>  1  THEN 
EX I T (ANSUERSAMPLES) ; 

(e  restore  cscreen  to  what  it  was  *) 

OECOOEPRINT (BLOCK, BLOCKPTR) 5 
END; 

END; 

UNTIL  (CHRANS  -  ITEMINFO. ANSfcER) ; 

END; 

END; 

(«  integer  value  as  answer  *) 

I  NT VALUE  ;  BEGIN 

(*  get  an  integer  *) 

INTANS  1-  GETINTANSUER(3,SC00E); 

IF  SCOOE  <>  1  THEN 
EXIT (ANSWERS AMPLE) ; 

IF  INTANS  -  I TEMINFO. INTANSUER  THEN 
BEGIN 

BLANKLINES (23,1, 23); 

URITECThata  correct!  ’); 

STALL; 

END 

ELSE 

BEGIN 

SOERROR  0; 

REPEAT 

8LANKLINES(21,3,21) ; 

URITELNCThe  correct  ansuer  ie  *, 

ITEMINFO. INTANSUER.'  not 
INTANS) ; 

URITELN; 

1*1  TE  ('Enter  the  correct  ansuer  ;  ’); 
i f  ghost  then 

intans  :•  i teeinfo. intansuer 

’  INTANS  GETINTSTR; 

IF  INTANS  <>  ITEMINFO. INTANSUER  TtCN 
BEGIN 

SQERROR  SQERROR  +  1; 

IF  SQERROR  -  MAX SQERROR  THEN 
BEGIN 

CALLPROCT (3. SCOOE); 

IF  SCOOE  <>  1  THEN 
EXI T (ANSUERS AMPLE) ; 

OECOOEPRINT  (BLOCK, BLXKPTR) ; 

END; 

END; 

UNTIL  INTANS  •  ITEMINFO. INTANSUER; 

END; 

END; 

(*  get  an  array  of  7  chars  *) 

SEVENCW  «  BEGIN 

QCOUNT  ITEMINFO. ANSUERCOUNT ; 

GE  TSEVENANSUERS ( 1 , QCOUNT , 3 . BLOCK . BLOCKPTR , S7ANS . SCOOE , 
QACOUNT) ; 

IF  SCOOE  0  1  THEN 
EXI T (ANSUERSAMPLE) ; 
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BLANKLINES (21. 3,26) t 

UR  I  TEC  Your  answers  were  :  *)| 

FOR  I  1  TO  QCOUNT  00 
URITECC.I.M  *  .S7ANSII] ’); 

URITELNj 

UR  I  TEC  Correct  answers  are  :  *); 

FOR  I  1  TO  QCOUNT  00 
URITECC.I.*)  MTEni^O.CHRANSUERm.'  '); 
URITELN; 

URITELN; 

STALL: 

END: 


END;  (e  case  ») 

SCOOE  1: 

END:  (e  answer  saeples  «) 


(*  answer  the  sample  questions  grafix  version  e) 

PROCEDURE  GANSUERS AMPLE; 

VAR  CHRANS  i  CHAR; 

QA  COUNT, 

U 

INTANS  :  INTEGER: 

S7ANS  :  SEVENTYPE: 

OK  :  BOOLEAN: 

BEGIN 

(*  answer  type  «) 

CASE  ITEMINFO.ATYPE  OF 

(«  multiple  choice  *) 

CHARVALUE  :  BEGIN 

(*  get  answer  e) 

CHRANS  »-  GGETCHRANSUER (3 , SCOOE) : 

(*  scods  <>  1,  proctor  was  called  «) 

IF  SCOOE  <>  1  THEN 
EXIT(GANSUERSAMPLE), 

(e  sample  feedback  a) 

IF  CHRANS  -  I TEMINFO. ANSWER  TV€N 
BEGIN 

G8LANKLINES(23,1,23): 

GURITESTRCThate  correct!  '); 

GST ALL; 

END 

ELSE 

BEGIN 

(*  count  #  of  wrong  key  ine  *) 

SCERROR  »-  8; 

REPEAT 

GBLANKLINES(21,3,21)| 

GtfilTESTRCThe  correct  answer  ie  ’); 

GUR1 TECKfl( I TEM1NF0. ANSWER) : 

GURITESTRC  not  '); 

GURITECHR (CHRANS); 

GURITELN; 

GURITELN; 

GURITESTRC  Tupe  ’); 

GURITECHR (ITEM  INFO. ANSWER) ; 

GURITESTRC  on  your  keypad  :  ’); 
if  ghost  then 
chrans  : ■  i  tern  info. answer 
else 

CHRANS  : - 

GGETCHAR ( I1TEMINFO.LOUANSUER. . ITEMINFO.HIGHANSUER) 
TRUE, TRUE, TRUE); 

IF  CHRANS  <>  I TEMINFO. ANSWER  THEN 
BEGIN 

SQERROR  :•  SQERROR  ♦  1; 
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IF  SOERROR  -  MAXSQERROR  THEN 
BEGIN 

(*  call  proctor  if  refusee  to  press  right  keu  «) 
CALLPROCT (3.SCQ0E) t 
IF  SCOOE  <>  1  THEN 
EXlT(ANSUERSAfPLES) 5 


(*  restore  cscreen  to  what  i t  uas  «) 
GOECOOEPRINT (CURRTEST, I ) ; 

EM); 

END; 

UNTIL  (CHRANS  -  ITEHINFO. ANSUER) ; 


(*  integer  value  as  answer  «) 
INTVALUE  s  BEGIN 


(«  get  an  integer  «) 

INTANS  s-  GGETINTANSUERI3, SCOOE); 

IF  SCOOE  <>  1  THEN 
EXIT (GANSUERSAIPLE) ; 

IF  INTANS  -  I TE11  DEO.  I  NT  ANSUER  THEN 
BEGIN 

C8LANKLINES(23.1,23); 

GURI  TESTRC  Thata  correct!  '); 

GST ALL; 

END 

ELSE 

BEGIN 

SQERROR  0; 

REPEAT 

G8LANKLINES(21.3,21); 

GURI TESTRC The  correct  answer  is  *); 

GURI TEINT  (I  TB1INF0.  INTANSUER) ; 

GIPITESTRC  not  *); 

GURITEINT (INTANS) ; 

GUFITELN; 

GURITELN; 

GURITESTRCEnter  the  correct  answer  1  ’); 
i f  ghost  then 

intane  : «  i teeinfo. intan suer 

*  INTANS  GGETINTSTR; 

IF  INTANS  <>  ITET1INF0.  INTANSUER  THEN 
BEGIN 

SOERROR  SQERROR  ♦  1; 

IF  SOERROR  -  OAX SQERROR  THEN 
BEGIN 

CALLPROCT (3. SCOOE); 

IF  SCOOE  <>  1  TEEN 
EXIT (ANSUERSATPLE) ; 

GOECOOEPRINT (CURRTEST, I ) ; 

END; 

END; 

UNTIL  INTANS  -  ITEHINFO.  INTANSICR; 

END; 

END; 


(«  get  an  array  of  7  chars  *) 

SEVENCHR  1  BEGIN 

QCOUNT  ITEfllNFO.ANSUERCOUNT; 

GGE  TSEVENANSUERS ( 1 , QCOUNT , 3 , CURRTEST , I , S7ANS , SCOOE . 
QACOUNT) ; 

IF  SCOOE  <>  1  THEN 
EXIT (GANSUERSATPLE) ; 

GBLANKL I NES (21 ,3,20) ; 

GURI  TESTRC  Your  answers  were  :  ’); 

FOR  U  s-  1  TO  QCOUNT  DO 
BEGIN 

GURITEOPC  C); 

GURITEINT (U); 
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GURITESTRC)  ’); 

GUR I TECHR  (S7ANS IU) ) ; 

GURITESTRC  '); 

END: 

GURITELN; 

GURITESTRC  Correct  answers  are  :  ’  )j 

FCW  U  :-  1  TO  QCOUNT  DO 

BEGIN 

GUR  I  TECHR  C  C); 

GUR I TE I  NT  (U) : 

GURITESTRC)  ’); 

GUR  I  TECHR  (ITEMINFO.  OKANSUER  04) ) ; 
GURITESTRC  •); 

END: 

GURITELN; 

GURITELN; 

GSTALL; 

END; 


END;  (*  case  *) 

SC OOE  1; 

END;  (e  gansuer  saeplea  «) 


BEGIN  (s  load test  *) 


RESET (FI LED I RECTORY, I  NOEXNAPE) ; 
SEEK (FILEOIRECTORY.CURRTEST) ; 
GET (FILEDIRECTORY) ; 


(*  load  question  index  *) 

01 RECTORY  t-  FILEDIRECTORY^; 

CLOSE (F 1 LEOI RECTORY. LOCK) ; 


(e  configure  questions  according  to  strategy  •) 

CASE  CURRSTRAT  OF 
NONE  :  ; 

TIMED  :  BEGIN 

(«  get  eaxieue  ties  allowed  in  seconds  *) 

TIMECOOE  DIRECTORY.  TESTNAMEC2); 

MAXTIPE  (ORO (TIMECOOE)  -  48)  *  88; 

TIME CODE  DIRECTORY. TESTNAME 131 ; 

MAX  TIME  :•  MAXTIHE  ♦  ( (ORD(TlftCOOE)  -  48)  *  18); 
TIMECOOE  »-  DIRECTORY. TESTNAME 141; 

MAXTIPE  MAXTIPE  ♦  (ORO (TIMECOOE)  -  48); 

END; 

(s  load  inforaation  table  a) 

B182222. 

B54321 

B188642  t  LOADINFO(CURRTEST  «■  MAXSUB TESTS  ♦  1); 

ENO; 

(«  set  default  screen  fornat  48  colunns  inverse  *) 

REVERSE VIDEO  TRUE; 

FORTYCOLUMN  TRUE; 

(*  cPiecK  if  any  other  tgps  foreat  desired  •) 

TEXTCOOE  01  RECTORY. TESTNAME  Ill; 

CASE  TEXTCOOE  OF 

:  FORTYCOLUPW  FALSE; 

’a'  :  BEGIN 

FORTYCOLUMN  FALSE; 

REVERSEV1DE0  FALSE: 
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•?’  :  REVERSEV10E0  FALSE: 

END; 

IF  FORTYCOLUMN  THEN 
TEXT40nOOE 
ELSE 

TEXT88n00E; 

IF  REVERSEV1DE0  THEN 
INVERSE 
ELSE 

NORMAL  SCR; 

{#  loop  instructions  and  saeples  until  examinee  coafortable  a) 
REPEAT 

(«  loop  instructions  a) 

REPEAT 

(«  set  flou  to  normal  a) 

SCOOE  1: 

(«  display  subtest  instructions  «) 

IF  DIRECTORY. I TEMCOOE 10)  >-  0  THEN 
BEGIN 

(a  get  record  tt  to  load  ptre  to  get  text  *) 

HASH  LOC  HASH(0) j 
RESET (FILEI TEMINFD.DATANAHE) j 
SEEK  (F I LEI  TEN INFO, HASH J.0C) ; 

GET  (FILEITEMINFO) : 

ITEMINFO  FILEITEMINFO*; 

CLOSE (FILEI TEMINFO.LOCK) : 

(«  load  ptrs  for  text  ») 

BLOCK  ITEMINFO. I TEMBLOCK; 

BLOCKPTR  ITEMINFO. I  TEMP TR: 

(*  display  the  text  s) 

DECOOEPR I NT (BLOCK . BLOCKPTR) ; 


(a  allow  exaeinee  to  call  proctor  if  uants  *) 
GOTOXY(0.21) ; 

PSTALL (3, SCOOE) ; 

IF  ABS (SCOOE)  >  4  THEN 

(*  does  not  uant  to  continue  eubtest  or  session  a) 
EXIT(LOADTEST) ; 

END; 

UNTIL  (SCOOE  -  1)  (*  normal  m) 

OR  (SCOOE  -  -4);  (*  exit  instructions  *) 

(m  reset  back  to  normal  a) 

SCOOE  1: 

(a  give  subteet  samples  a) 

SAMPLEQUEST I ON  TRUE; 

I  It 

UHILE  (I  <-  5)  00 
BEGIN 

IF  DIRECTORY. I TEMCOOE  ID  >  0  THEN 
BEGIN 

(a  get  record  U  of  data  for  this  sample  a) 

HASH_L0C  HASH  ( I » ; 

RESET  (FILEI  TEM INFO. OATANAIt) ; 

SEEK (FILEI TEMINFO.HASH.LOC) ; 

GET  (FILEITEMINFO); 

ITEMINFO  FILEITEMINFO*; 

CLOSE (F I LE I TEM I NFO . LOCK ) ; 

(a  get  text  pointers  for  sample  a) 

BLOCK  I TEMINF0.1 TEMBLOCK; 

BLOCKPTR  $.  ITEMINFO. I TEMPTR; 
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(*  give  the  aaaple  until  exaainee  aneuere  or  skips  a) 
REPEAT 


(a  reset  noraal  flou  a) 

SCOOE  i-  Is 

(a  dieplag  the  saaple  a) 

IF  I TEtt INFO. GRAPHICS  THEN 
BEGIN 

GRAFIX  TRUE; 

GOECOOEPRINT (CURRTEST, I ) s 
PAGE (OUTPUT); 

GANSUERSAflPLE ; 

GRAFIX  s-  FALSE; 

TEXTON; 

END 

ELSE 

BEGIN 

DECOOEPR I NT (BLOCK . BLOCKPTR ) ; 
ANSWERS AflPLEi 
END; 


IF  ABS (SCOOE)  >  4  THEN 

(a  uants  to  leave  eubtest  or  session  a) 
EXIT (LOAD TEST); 


IF  ABS (SCOOE)  -  4  THEN 

(a  uants  to  exit  rest  of  saaples  a) 

BEGIN 

SCOOE  1; 

I  ;-  S; 

END; 

UNTIL  SCOOE  -  1; 

END; 

I  s-  I  ♦  1; 

END; 


(a  ask  if  ready  to  begin  test  a) 

PAGE (OUTPUT); 

IF  FORTVCOLUON  THEN 
G0T0XYU.18) 

ELSE 

GOTOXY(21.10); 

URITECAre  gou  ready  to  begin  the  test?  ’); 
i f  ghost  then 
rchar  ;•  chr (yeakey) 
else 

RCHAR  GETCHAR(  (CHR (YESKEY) , CHR  (NOKEY) ] .TRUE, FALSE. TRUE) s 
IF  RCHAR  -  CHR (NOKEY)  THEN 
BEGIN 

PAGE (OUTPUT); 

IF  FORTYCOLUON  THEN 
GOTOXY(1,10) 

ELSE 

GOTOXY (21 , 18) ; 

URITELNCDo  you  uant  to  go  over  the  instructions’); 

IF  NOT  FORTYCOLUON  THEN 
GOTOXY (21, 11); 

URITEt’  and  saaples  again?  *); 

IF  GETCHARI  (CHR (YESKEY) , CHR (NOKEY) ) , TRUE, FALSE, TRUE)  (NOKEY)  THEN 
(a  call  proctor  if  not  ready  and  doesnt  uant  sore  instructions  a) 
CALLPROCT (3, SCOOE) ; 

IF  SCOOE  <>  1  THEN 
EXIT (LOAD TEST); 

END; 

UNTIL  (RCHAR  -  CHR (YESKEY) ) ; 

SAOPLEQUESTION  FALSE; 

END:  (a  load  test  a) 
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(aeesssaaassssseMMasMMSssssaMsssaaesaseMsssssaassssaasaaaaaassatasaaaassai 

(*  Textfile  :  AOMIN.OIR/A.QUEST. TEXT  Volume  :  TFILES  ! 

(*  Codefile  :  ADMIN. COOE  (‘Include’  file)  Volume  :  CATDATA  i 

(a  i 

(eeeaaaaseaessaaeaseaeasaeaaaaaeessseeaaasaetssssesasaasssaeesaaeaaaaaaaaeaeasi 

(a  File  last  modified  :  Aug  5,  1983  NPRDC  i 

(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa: 


(a  This  procedure  searches  through  an  appropriate  strategy  data  structure  a 
(a  and  eelects  a  question  to  give  the  examinee  based  on  certain  data.  It  a 
(a  also  checks  to  see  if  the  question  has  been  used  before  and  gives  one  a 
(a  which  hasn’t  been  used.  It  elicits  an  answer  from  the  examinee  and  a 
(a  updates  the  record  with  his  response.  a 


PROCEDURE  ADMINISTERQUESTIONi 


VAR  QCOUNT, 

OSTCOOE, 

QSLOT, 

BLK. 

BLKPTR, 

I. 

INTANS. 

OATASLOT. 

ACOOE  :  INTEGER; 


(a  U  of  questions  per  item  in  special  tests  a) 
(a  code  *  of  question  a) 

(a  slot  in  directory  a) 

(a  block  where  text  starts  a) 

(a  byte  in  block  where  text  starts  a) 

(a  integer  answer  to  question  a) 

(a  record  0  where  text  ptrs  are  and  data  a) 

(a  flow  variable  for  this  module  a) 


CHRANS  :  CHAR; 


(a  multiple  choice  answer  a) 


S7ANS  :  SEVENTVPE;  (a  seven  char  answer  a) 
GATE. 

DONE  :  BOOLEAN; 


START,  (a  time  question  appeared  a) 

STOP  :  REAL:  (a  time  examinee  answered  question  a) 


(a  this  function  searches  an  array  of  ueed  question  a) 

(a  codes  and  returns  nil  if  the  question  was  unused  a) 

FUNCTION  SEARCH (QCOOE  :  INTEGER)  «  INTEGER; 

VAR  FOUND  :  BOOLEAN; 

I  .  INTEGER; 

BEGIN 

IF  QCOOE  <  0  THEN  (a  invalid  code  0,  set  that  it  was  used  so  wont  use  a) 
SEARCH  : -  1000  (a  any  positive  number  will  do  a) 

ELSE 

BEGIN 

FOUND  :-  FALSE; 

I  0: 

REPEAT 

IF  USEOQII)  -  QCOOE  THEN 
FOUND  «-  TRUE 
asE 

I  I  +  1: 

UNTIL  (FOUNO)  OR  (I  >  QNLV1)  OR  U  >  QUESTIONS); 

IF  FOUNO  THEN 
SEARCH  I 
ELSE 

SEARCH  NIL; 

END; 

END;  (a  search  a) 

PROCEDURE  ERROR! I ROU: INTEGER); 

VAR  PASSUORO.PUORO: STRING; 

I : INTEGER; 

BEGIN 

PAGE (OUTPUT); 

UR  I TELN  ( ' I NFOTABLE  SELECT  ERROR  !!!!!<*>; 

URITELN; 

UR  I TELN ( ' NO  MORE  QUESTIONS  AT  THIS  ABILITY  LEVEL’); 

URITELN; 

URI  TELN(’  INFOTABLE  ROU  \IR0U); 


89 


Sap  28  10tl3  1983  A0HIN.01R/A. QUEST. TEXT  (  Select  a  question  to  give)  Page  2 


URITELNt 
STALL j 

(a 

UR  I TELN (SAVERC  III ,  *  * . SAVERC  C2J )  ; 

UR  I TELN (SAVERC  (31 . *  * ,  SAVERC  (41 ) , 

a) 

FOR  Is-1  TO  S  DO 
BEGIN 

URI  TE(I ,  ’  * ,  INFOTABLE II ,  IROU1 ,  ’  *); 

URI TE (1+5, *  ' ,  Iff OTABLE d+S, IROU1 , '  *); 
URITEd+10.’  * ,  INFOTABLE  CI+10,  IR0U1 ,  *  ’); 
URI TE (I+1S, ’  ’ , INFOTABLE (1+15, IROU] ) ; 

URI TELN j 
END: 

URI TELN; 

(a 

URI TELN C THE  CONTENTS  OF  THE  USEOQ  ARRAY* ); 

FOR  Is-0  TO  4  00 

BEGIN 

URITEd,’  *.USE0Qm,*  *); 

URI  TE  (I+S, '  ’.USEDOd+S].’  *); 

URITEd+10,  *  *,USEDQd+10].’  *); 
URITEd+lS,  ’  ‘.USEOQ  II +1S3.*  *); 

URI TELN; 

END; 

s) 

PUORO:«’LJ* ; 

URI TELN; 

URI TELN ('PROCTOR  t  COPY  DATA  ON  SCREEN 
URI TELN (’THEN  ENTER  PASSUORO 
REPEAT 

RE AOLN (PASSUORO); 

UNTIL  PASSUORO  -  PUORO; 

URITE(CHR(28)); 

END; 


*  select  a  question  from  the  information  table  based  on  the  a! 


e  exaeinees  current  ability  level.  «] 
*  takes  six  parameters,  1.  ability  level  ueed  to  find  the  el 
a  appropriate  rou,  and  S  stepe  which  specify  the  number  of  el 
e  questions  to  randomly  select  from  for  the  nth  queetion  el 
«  all  questions  after  the  fifth  question  take  on  the  fifth  el 
«  step.  el 


FUNCTION  INFOSELECT (ABILITY  ;  REAL;  S1.S2.S3.S4.SS  i  INTEGER)  ;  INTEGER; 

VAR  QSELECT, 

GETMAXQ, 

USED. 

ROU. 

COUNT. 

COLUHN  ;  INTEGER; 

T  ;  REAL; 

OKQ  t  BOOLEAN; 

SAVFCOL 

POOL  t  ARRAY  Cl.. 10]  OF  INTEGER; 

BEGIN  (a  infoselect  a) 

(a  rou  based  on  38  levels  ranging  from  -2.2S0  to  +2.12S  a) 

(a  ability  rises  8x*s  slousr  than  table  index  a) 

(a  19  is  ths  offsst  into  the  table  a) 

ROU  TRUNCI (ABILITY  a  8)  +  19.S000000); 

IF  STAY  T)€N 
ROU: -LEVEL; 

IF  ROU  >  38  THEN 
ROU  s-  36 
ELSE 

IF  ROU  <  1  T)CN 
ROU  1; 
i f  trace  then 
begin 

gotoxy (0,0) ; 
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b I ank lines (0, 1 , 0) ; 
uri te(‘ infotable  rou  is  ’ , rou); 
read  In; 
end; 

(*  get  the  nuaber  of  randoa  questions  to  select  the  next  quest,  froa  *) 

IF  F1RSTQUESTI0N  THEN 

BEGIN 

GETMAXQ  s-  Sit 
END 
ELSE 
BEGIN 

GETMAXQ  S5;  (*  default  s) 

CASE  QNUfl  OF 


0  : 

GETMAXQ 

-  S2 

1  : 

GETMAXQ 

-  S3 

2  : 

GETMAXQ 

-  S4 

END; 

END; 


i f  trace  then 
beg  i  n 

gotoxy (0,0) ; 
blank  I ines (0,1,0) ; 

uritefaaximua  tt  of  randoa  questions  looked  at  ’.getaaxq); 
read  In; 
end; 


Oka  FALSE; 

REPEAT 

(a  get  the  aaxiaua  U  of  questions  not  used  already  «) 
COLUMN  1; 

COUNT  0; 

REPEAT 


(«  check  if  question  previously  used  *) 

IF  1NF0TABLE (COLUMN. ROU]  <  0  THEN  (»  infotable-  -1  if  the  question  *) 

(*  is  not  avai lable  •) 

USEO  1 
ELSE 

USEO  SEARCH (INFOTABLE (COLUMN, ROU));  (ssearch  returns  -1  i f  «) 
(*  the  question  0  is  not  in  the  array  of  used  questions  *) 

(*  if  question  uasnt  used  save  it  s) 

IF  USEO  <  0  THEN 
BEGIN 

COUNT  COUNT  ♦  1; 

POOL  (COUNT)  I  NOTABLE  (COLUMN,  ROU] ; 

SAVECOL  (COUNT]  s-  COLUMN; 

END 

ELSE 

(saark  entry  in  table  as  used  *) 

INFOTABLE (COLUMN, ROU)  -1  ; 

COLUMN  COLUTN  +  1; 

UNTIL  (COLUMN  >  20)  OR  (COUNT  >-  GETMAXQ); 

IF  (COLUMN  >  20)  AND  (COUNT  -  0)  TIEN 
BEGIN 

ERROR  (ROU); 

ROU  : -ROU  +  1; 

IF  ROU  >  36  THEN  ROU  ;.3S; 

LEVEL: -ROU; 

END 

ELSE 

BEGIN 

(*  randomly  choose  froa  available  pool  ») 

T  RANDOM; 

QSELECT  (TRUNC(T)  MOO  COUNT)  +  1; 

INFOSELECT  POOL  (QSELECT) ; 

OKQ  TRUE; 

COLUMN  SAVECOL  (QSELECT) ; 
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(a  Save  the  rou  and  coluan  index  for  update  of  the  infotable  *) 
(*  once  it  is  knoun  if  exaainee  answered  right  or  urong  a) 

IF  RIGHT  THEN 
BEGIN 

SAVERC  Ill  i-  ROU) 

SAVERC [2] ( •  COLUMN! 

RIGHT: •  FALSEi 
END 
ELSE 
BEGIN 

SAVERC  (3):-  ROU; 

SAVERC [41 s -  COLUMN; 

RIGHT:-  TRUE; 

EN0( 

i  f  trace  then 
begin 

gotoxy (0,0) ( 

blank  I ines (0,1,0); 

ur i te(* coluan  is  ’ , coluan): 

read  In; 

gotoxy (0,0) : 

qselect  :•  pool  Cqselectl » 

write!' quest  ion  is  ' .directory. i tsacode (qselect] ) ! 
read  In: 
end: 

END: 

UNTIL  OKQ; 

END:  (a  infoselect  a) 


•"A 

/.s 


pj 


V, 

’  s 


(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa) 

(a  This  function  steps  through  randoaly  the  a) 

(a  test  directory  and  selects  the  first  itea  a) 

(a  not  previously  given.  Thera  is  no  strategy  a) 

(a  involved.  a) 

(aaaaaaassaaaaaaaaaaassssaasssasssssaaaaaassaaaa) 

FUNCTION  NOSTRATSELECT  i  INTEGER: 

VAR  USED. 

SINDEX  I  INTEGER? 

OKQ  :  BOOLEAN: 

BEGIN 

SINDEX  QNUM  ♦  MAXSAMPLES  ♦  1; 

OKQ  >-  FALSE: 

REPEAT 

IF  OIRECTQRV. ITEMCOOE  CSINDEX]  >-  0  THEN 
BEGIN 

USED  SEARCH (SINDEX) : 

IF  USED  <  0  THEN 
0K0  TRUE 

END: 

IF  NOT  OKQ  THEN 
SINDEX  SINDEX  ♦  1; 

UNTIL  (OKQ)  OR  (SINDEX  >-  HAXITETPOOL) : 

IF  OKQ  THEN 

NOSTRATSELECT  SINDEX 
ELSE 
BEGIN 

PAGE (OUTPUT): 

URITECNo  STRATEGY  QUESTION  SELECT  ERROR!!!!!*): 
GOTOXY (0,10); 

STALL: 

END; 

END;  (a  nostratselect  a) 


(a  answer  the  displayed  question  a) 

PROCEDURE  ANSUEROUESTIONi 

VAR  QANSUEREO  :  INTEGER:  (a  nuaber  of  questions  answersd  a) 
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SAVE ITEM  :  BOOLEAN: 

BEGIN 

(***»  get  the  aneuer  and  save  the  results  **«*) 

CASE  I TEMINFO. ATYPE  OF 
CHAP VALUE  :  BEGIN 

IF  I  TEMINFO.  GRAPH  ICS  ThCN 
CHRANS  GGETCHR ANSWER (4 , ACOOE) 

ELSE 

CHRANS  GETCHR ANSUER (4, ACOOE) ( 

IF  ACOOE  -  1  THEN 
BEGIN 

SAVE  I  TEH  TRUE; 

(*  update  record  a) 

IF  CURRSTRAT  -  TIMED  THEN 
BEGIN 

STOP  TIME: 

TESTS. I TEMINFO fONUn). LATENCY  ABS (START-STOP): 

ELASPEDTIME  :-  ELASPEOTIME  +  (TRUNC(ABS(START-STOP))): 
IF  ELASPEOTIME  >-  HAXTIME  T)€N 
SAVE ITEM  :-  FALSE: 

END: 

IF  SAVE I  TEH  THEN 
BEGIN 

TESTS. MOOSTTirE  :>  ELASPEOTIME; 

TESTS. I TEMINFO CQNUM1 .RTVPE  CHAR VALUE: 

TESTS.  I  TEMINFO  (ONUM). RESPONSE  OPANS; 

TESTS.  1  TEMINFO  (ONUM).  I  TEfWUM  QSTCOOE: 

TESTS. NUHITEMS  TESTS. NUMITEMS  ♦  1; 

IF  CHIANS  -  I TEMINFO. ANSUER  THEN 
BEGIN 

TESTS. NUMCORR  :«  TESTS. NUMCORR  +  1: 

TESTS. I TEMINFO tQNUM). CORRECT  TRUE; 

IF  (CURRSTRAT  -  B 102222)  OR 
(CURRSTRAT  -  BS4321)  OR 
(CURRSTRAT  -  B188642)  TV€N 
BEGIN 

(PREFETCH  RITEPREFETCH; 

CURRABILITY  «-  RITEABILITY; 

CURR VARIANCE  |.  RITEVARIANCE; 

RIGHT  i-  TRUE: 

END; 

END 

ELSE 

BEGIN 

TESTS. I TEMINFO CQNUM). CORRECT  FALSE: 

IF  (CURRSTRAT  -  B 102222)  OR 
(CURRSTRAT  -  BS4321)  OR 
(CURRSTRAT  -  B 188642)  THEN 
BEGIN 

(PREFETCH  :-  URONGPREFETCH; 

CURRABILITY  URONGABILITY; 

CURR VARIANCE  >.  (PONG VARIANCE; 

RIGHT  :■  FALSE: 

EM): 

EM); 

END: 

EM); 

EM); 

1NTVALUE  :  BEGIN 

IF  I TEMINFO. GRAPHICS  THEN 
INTANS  GGETINTANSUER<4, ACOOE) 

ELSE 

INTANS  GETINTANSUER(4,AC00E); 

IF  ACOOE  -  1  THEN 
BEGIN 

SAVE  ITEM  TRUE; 

IF  CURRSTRAT  -  TIMED  THEN 
BEGIN 

STOP  TIME: 

TESTS. I TEMINFO (QNUH). LATENCY  ABS (START-STOP) ; 

ELASPEOTIME  ELASPEOTIME  ♦  (TRUNC (ABS (START-STOP))): 
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IF  ELASPEOTIME  >-  MAXTIME  THEN 
SAVE  I  TEM  FALSE: 

END; 

IF  SAVE  I  TEfl  THEN 
BEGIN 

TESTS.flOOSTTinE  ELASPEOTIME: 

TESTS.  ITEflINFO  IQNUfl)  .RTYPE  I  NT  VALUE: 

TESTS.  ITEfllNFO (CWUM] .  INTRESPONSE  :-  INTANS: 

TESTS.  ITEflINFO  IQNUfl] .  ITEfWUM  QSTCOOE: 

TESTS. NUfll TEflS  TESTS. NUniTEftS  +  1; 

IF  INTANS  -  ITEflINFO.  INTANSUER 

THEN 

BEGIN 

TESTS. NUMCORR  TESTS. NUT1CORR  +  1; 

TESTS.  I  TEMIfFO  IQNUfl]  .CORRECT  :-  TRUE; 

IF  (CURRSTRAT  -  B182222)  OR 
(CURRSTRAT  -  B54321)  OR 
(CURRSTRAT  -  B108642)  THEN 
BEGIN 

QPREFETCH  RITEPREFETCH; 

CURRABILITY  RITEABILITY: 

CURR VARIANCE  RITEVARIANCE: 

RIGHT  :-  TRUE: 

END: 

END 

ELSE 

BEGIN 

TESTS. I TEniNFOtQNUni. CORRECT  FALSE: 

IF  (CURRSTRAT  -  B182222)  OR 
(CURRSTRAT  -  B54321)  OR 
(CURRSTRAT  -  B188S42)  THEN 
BEGIN 

QPREFETCH  URONGPREFETCH; 

CURRABILITY  I-  URONG ABILITY: 

CURR VARIANCE  URONGVARIANCE: 

RIGHT  FALSE; 

END: 

END: 

END; 

END: 

END: 

SEVENCHR  :  BEGIN 

QCOUNT  :■  ITEMIfFO.ANSUERCOUNT; 

IF  I  TEfl  INFO.  GRAPH  ICS  THEN 
GETSEVENANSUERS (1 , QCOUNT , 4 , CURR TEST , 

QSTCOOE. S7ANS.AC00E. 

QANSUEREO) 

ELSE 

GETSEVENANSUERS (1 .QCOUNT, 4, BUC.BLKPTR.S7ANS.ACOOE. 
QANSUEREO): 

IF  QANSUEREO  >  0  THEN 
BEGIN 

IF  ACOOE  -  1  THEN 
BEGIN 

IF  CURRSTRAT  -  TIMED  THEN 
BEGIN 

STOP  :•  TIME: 

ELASPEOTIME  :•  ELASPEOTIME  + 

(TRUNC (ABS (START-STOP) ) ) : 

IF  ELASPEOTIME  >-  MAXTIME  THEN 
TESTS. ITEMINFOIQNUH). LATENCY  ABS (START-STOP)  - 
(ELASPEOTIME  -  MAXTIME) 

ELSE 

TESTS.  ITEMIfFOIQNUH). LATENCY  ABS  (START-STOP) : 

END: 

TESTS. I TEMINFOIQNUM1. RTYPE  SEVENCHR: 

TESTS. ITEM  I NFO IQNUMJ . CHRRESPONSE  :•  S7ANS: 

TESTS. ITEMINFO IQNUMI . ITEMNUM  QSTCOOE: 

TESTS. NUM ITEMS  :■  TESTS.NUMI TEMS  +  QANSUEREO: 

TESTS. I TEMlfFO  IQNUMI . ACOUNT  QANSUEREO: 

FOR  I  1  TO  QANSUEREO  IX) 

BEGIN 
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IP  S7ANSCI1  -  I TEMINFO.CHR ANSWER  111  THEN 
BEGIN 

TESTS. NUT1C0RR  :•  TESTS.  NUT1C0RR  +  lj 
TESTS.  I  TEH  INFO  IQNUH1 .ACORRECT  II -II  TRUE: 

END 
ELSE 

TESTS. ITEHINFOIQNUH). ACORRECT tl-ll  FALSE: 

ENOj 

ENO; 

ENO; 

ENO: 

ENO;  (*  case  *) 

ENO;  (*  answer  question  *) 


(*  precalculating  to  get  next  question  *) 

PROCEDURE  PRECALCULATE; 

BEGIN 

(*  set  current  ability  and  variance  for  prefetch  «) 

RITEABILITY  CURRABILITY; 

URONGABILI TY  CURRABILITY; 

RITE VARIANCE  CURRVARI ANCE; 

WRONG VARIANCE  CURRVARI ANCE; 

(«  calculate  abilities  if  answered  wrong  and  right  «) 

(*  THIS  ROUTINE  IS  SKIPPED  IF  THE  STAY  ROUTINE  IS  USED  *) 

IF  NOT  STAY  THEN 
UPOATEABILITY(TRUE) ; 

(«  calculate  next  question  if  examinee  answers  current  one  correctly  *) 
CASE  CURRSTRAT  OF 

B102222  :  RITEPREFETCH  INFOSELECT(RITEABILITY.10.2.2.2.2); 

BS4321  :  RITEPREFETCH  IffOSELECT (RITEABILITY. 5, 4, 3, 2,1); 

B108642  :  RITEPREFETCH  INFQSELECT (RITEABILITY, 10,8,6, 4.2); 

ENO; 

(*  calculate  next  question  if  exaainee  answers  current  one  wrong  «) 
CASE  CURRSTRAT  OF 

B102222  j  URONGPREFETCH  INFOSELECT(URONGABILITY.10,2,2.2.2); 

BS4321  :  URONGPREFETCH  INF0SELECT(UR0NGABILITY.5.4,3.2.1); 

B108642  :  URONGPREFETCH  INFOSELECT (URONGABILI TY.10.8.B.4. 2); 

ENO; 

END; 


BEGIN  (*  administer  question  e) 


CASE  CURRSTRAT  OF 
NONE 

TIMED  :  QSLOT  NOSTRATSELECT; 

B102222  :  IF  FIRSTQUESTION  THEN 

BEGIN 

QSLOT  INFOSELECT (CURRABILITY. 10,2.2.2.2); 
FIRSTQUESTION  FALSE; 

RIGHT  TRUE; 

ENO 

ELSE 

QSLOT  ;•  (PREFETCH; 

B54321  :  IF  FIRSTQUESTION  THEN 

BEGIN 

QSLOT  IfPOSELECT  (CURRABILITY, 5,4, 3,2,1); 
FIRSTQUESTION  FALSE; 

RIGHT  TRUE; 

ENO 

ELSE 

QSLOT  (PREFETCH; 

B108642  :  IF  FIRSTQUESTION  THEN 

BEGIN 

QSLOT  t-  IfPOSELECT (CURRABILITY,  10,8,6,4,2) ; 
FIRSTQUESTION  FALSE; 
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RIGHT:-  TRUE  s 
ENO 
ELSE 

QSLOT  (PREFETCH; 

END; 

(a 

i  f  trace  then 
beg  i  n 
uri tel  ns 
ur i te In; 

ur  i  telnCQuestion  selected  •  ’.qstcode); 
ur i te In; 
stal I ; 
end; 

«) 

USEOQ  (QNUfl)  :•  QSLOT;  (*  Keep  track  of  used  questions  a) 

(*  Hark  question  as  use  in  the  infotable  a) 

IF  RIGHT  THEN 

INFOTABLE  (SAVERC  (2). SAVERC  Ill);-  -1 
ELSE 

INFOTABLE  (SAVERC  (4).  SAVERC  13));-  -1; 

RIGHT  ;-  TRUE; 

QSTCOOE  DIRECTORY. I TEMCOOE (QSLOT) ;  to  save  code  U  *) 

IF  QSTCOOE  >-  0  THEN  (*  question  ex  s  *) 

lt«m  shou  question  aaaaa) 

BEGIN 


i f  trace  then 
beg  i  n 

gotoxy  (0.0); 
blank  I ines (0.1.0); 
uriteCitea  selected  is  '.qstcode); 
read  In; 
end; 

DATASLOT  i-  HASH (QSLOT);  (a  find  question  data  record  M  a) 

(a  get  the  question  data  a) 

RESET (F 1 LE I TEM I NFO . DAT ANAME ) ; 

SEEK (F I LE I TEMI NFO , OATASLOT ) ; 

GET (FILEITEMINFO) ; 

ITEMINFO  FILEITEMINFO^; 

CLOSE (F1LE1 TEMI NFO, LOCK) ; 

(a  get  pointers  to  find  text  a) 

BLK  i-  ITEMINFO. I TEMBLOCK; 

BLKPTR  :-  ITEMINFO. ITEMPTR; 

DONE  t-  FALSE; 

GATE  ;-  TRUE; 

REPEAT 

(a  set  flou  to  noraal  a) 

ACOOE  1; 

(a  display  the  text  a) 

IF  I TEM I NFO. GRAPH ICS  THEN 
BEGIN 

GRAF  IX  s-  TRUE; 

FILLPORT; 

GOECODEPR I  NT (CURR TES T . QS TCOOE I ; 

PAGE (OUTPUT); 

END 

ELSE 

BEGIN 

OECOOEPRINT (BLK, BLKPTR);  (a  display  the  question  a) 
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UNITCLEARI2) i  (a  flueh  the  keyboard  buffer  ») 

END; 

(e  prefetching  of  the  next  question  while  exaeinee  is  reading  the  ») 
(*  current  question  .  *) 

IF  (CURRSTRAT  -  8102222)  OR 
(CURRSTRAT  -  B54321)  OR 
(CURRSTRAT  -  B188642)  THEN 
PRECALCULATE: 

(a  start  the  timer  for  timed  tests  *) 

IF  (CURRSTRAT  -  TIMED)  AND  (GATE)  THEN 
BEGIN 

GATE  FALSE: 

START  TIME: 

END; 

(*  get  the  examinee  response  to  question  a) 

ANSUERQUESTION: 

TEX TON; 

GRAF IX  FALSE; 

IF  ACOOE  -  1  THEN 
DONE  TRUE: 


(«  if  taking  a  timed  test,  and  time  is  used  up  m) 

IF  ((CURRSTRAT  -  TIMED)  AND  (ELASPE0T1ME  >-  MAXTIME))  OR  (TIMEOUT)  THEN 
BEGIN 

PAGE (OUTPUT): 

G0T0XY(1.8); 

URITEI’Your  time  has  expired  for  this  subtest.*): 

GOTOXY (0. 10) ; 

FLOUCOOE  S: 

STALL: 

TESTS. MOOSTTIME  MAXTIME: 

EXIT (AOMINISTERQUESTION) ; 

END; 


CASE  ABS (ACOOE)  OF 

(a  wants  to  leave  test  e) 

5,7  :  EXIT (AOMINISTERQUESTION): 

(a  wants  to  leave  session  a) 

G  :  DONE  TRUE: 

END: 

UNTIL  (DONE)  AND  (ACOOE  -  1): 

(a  if  examinee  wants  to  leave  session,  must  first  answer  a) 

(a  the  question.  If  wants  to  leave  subteet,  doesnt  have  a) 

(a  to  answer  the  question.  a) 

ENO 

ELSE 

BEGIN 

PAGE  (OUTPUT) : 

SQUAUK; 

URITELN  (’Quest  ion  load  error  !!!  No  such  qusstion  in  directory  !*): 
URITELN; 

URITELN (* Tried  to  load  question  B  ’.QSTCOOE): 

URITELN (’Directory  slot  ’,  QSLOT): 

URITELN: 

STALL: 

ENO: 

ENO;  (a  administer  question  a) 
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Textfile  :  AOMIN. OIR/A. UABIL. TEXT  Votuee  :  TFILES 

Codefile  :  ADMIN. COOE  (’Include’  file)  Volume  :  CATDATA 


OEC.  1.  1982 


NPROC 


e 


(«  updates  exaninee  ability  level  and  variance  of  estimate  *) 
PROCEDURE  UPDATEABILITY (PREFETCH  :  BOOLEAN) j 


(*  coeputes  the  exaeinees  ability  based  on  previous  ability,  *) 
(e  variance,  question  abc  paraasters  and  how  he  ansuered  e) 
(*  the  question.  *) 

PROCEDURE  BAYS I  AN (VAR  ABILITY, VARIANCE  :  REAL:  A.B.C  :  REAL: 

ANSUEROtC  :  BOOLEAN); 

VAR  SS.S.X.R.P.O  :  REAL; 


[«  coeputes  y  •  p(x)  -  probability  that  the  randoe  variable  u,  *i 
[*  distributed  norally  (0,1),  is  less  than  or  equal  to  x.  f(x)*l 
(•  the  ordinate  of  the  noreal  density  at  x,  is  also  computed  el 
!*  * 
[«  discription  of  paraaeters  :  xcoord  —  input  scalar  for  uhiche! 
1*  p(x)  is  computed.  a! 

[«  probability - output  probability*! 

[*  _  density — output  density  *1 

[*  ain't  bub  error  ie  .0000007.  *! 
I*  method  :  based  on  approximations  in  c.  hastings,  *! 
I*  approximations  for  digital  computers,  princeton  *1 
[*  univ  press,  n. j.,  195S,  see  equation  26.2.17,  *] 
[*  handbook  of  mathematical  functions,  abraaouitz  and  *1 
!*  stegun,  dover  publications,  inc.,  neu  york.  *) 
ie*«e*»s***ee*»»*eses»*es*sss»»»**************e****»»****ee»e»*«! 


PROCEDURE  NORMALDENSITY (XCOORD  :  REAL;  VAR  PROBABILITY. DENSITY  s  REAL); 
VAR  AX. 

TEMP, 

AVGSQ  s  REAL; 

BEGIN 

AX  ABS(XCOORO) ; 

TEMP  1.0  /  (1.0  ♦  0.2316419  *  AX); 

AVGSQ  -XCOORD  *  XCOORD  /  2.0; 

DENSITY  0.3989423  *  EXP (AVGSQ); 

PROBABILITY  1.0  -  DENSITY  *  TETP  * 

((((1.330274  •  TEMP  -  1.8212S6)  *  TEMP  +  1.781478) 

*  TEMP  -  0.3SG5638)  *  TETf>  ♦  0.319381S); 

IF  XCOORD  <  0  THEN 

PROBABILITY  1.0  -  PROBABILITY; 

END;  (*  normal  density  *) 


BEGIN  (*  bays i an  *) 

SS  *-  VARIANCE  +  1.0  /  SQR(A); 

S  «-  SORT (SS) ; 

X  i-  (ABILITY  -  B)  /  S; 

NORMALDENSITY(X.P.O); 

IF  ANSUEROK  THEN 
R  i-  D  /  (P  +  C  /  (1.0  -  CD 
ELSE 

R  «-  -0  /  (1.0  -  P); 

ABILITY  ABILITY  +  R  *  VARIANCE  /  S; 

VARIANCE  VARIANCE  -  SQR (VARIANCE)  *  R  *  (R  ♦  X)  /  SS; 
END;  (*  bays i an  *) 


BEGIN  (*  update  ability  *) 
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i f  trace  then 
beg  i  n 
uri teln; 

uritelnl'Old  ability  -  * .currabi I i ty) i 
uritelnf’Old  variance  -  currvariance); 
end: 

) 

CASE  CURRSTRAT  OF 
NONE. 

TIHED  :  ; 

B 102222, 

B54321 , 

B108642  :  BEGIN 

IF  PREFETCH  THEN 
BEGIN 

BA YSIAN (RITE ABILITY, 

RITE VARIANCE. 

ITEHINFO. A,  I  TEHINFO.B,  ITEHDFO.C, 
TRUE); 

BA YSIAN (URONG ABILITY, 

URONGVARI ANCE, 

ITEHINFO. A, I TEHINFO.B, ITEHINFO. C, 
FALSE): 

END 

ELSE 

BEGIN 

BAYSI AN (CURR ABILITY, 

CURRVARIANCE. 

ITEHIff  0. A, ITEHINFO. B, ITEHINFO. C. 
TESTS. 1 TEHINFO lONUH) . CORRECT) : 
TESTS. I TEHINFOIQNUH). THETA  CURRABILITY; 
TESTS. ITEHINFO (QNUHI .ERROR  CURRVARIANCE: 
END; 

END: 

END; 

I 

i f  trace  then 
begin 
ur  i  te  I  nt 

uri teln (’A  paraeeter  -  ’ , i teeinfo. a) j 
uritelnCB  paraeeter  »  i teeinfo. b) ; 
uritelnCC  paraeeter  -  i teeinfo. c); 
ur i teln; 

if  teate. i teeinfolqnue) .correct  then 
ur i telnf’Anauered  correctly  :  yes') 
elee 

ur i telnCAnauered  correctly  :  no’); 
ur i teln; 

uritelnCNeu  ability  •  '.teate.  i teeinfolqnue]. theta); 
uritelnCNeu  variance  -  teeta.  i  teeinfo  Iqnue)  .error) ; 
uri teln; 
etal I; 
end; 

) 

END;  (*  update  ability  *) 
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Textfile  :  AOMIN. D1R/A.FBACK. TEXT  Volume  :  TFILES 

Codefile  :  AOMIN. CODE  ('Include*  file)  Volume  :  CATOATA 


(«  File  last  modified  :  Jan  2s.  1903 


SEGMENT  PROCEDURE  FEEDBACK  (FBTYPE  :  TYPEFEEDBACK: 

F8C00E,  OUTPUTCOOE  :  INTEGER); 


(*  i tea  feedback  *) 
PROCEDURE  ITEMFEED6ACK; 
VAR  OUMMYCHAR  :  CHAR; 
BEGIN 

CASE  F8C00E  OF 


1  :  BEGIN 

BLANKLINES (21, 3, 21); 

URITEl’The  correct  ansuer  is  ITEM INFO. ANSUER) ; 

GOTOXY (0.23); 

STALL; 

END; 


2  :  ;  (*  remedial  feedback  *) 


END;  (*  case  m) 

END;  (*  item  feedback  *) 


(«  subtest  feedback  «) 

PROCEDURE  SUBTFEEDBACK(SUBF.SUBOUT  «  INTEGER): 
VAR  TOROER  :  STRING; 


(m  send  detailed  or  simple  feedback  to  printer  or  screen  «) 
PROCEDURE  OUTPUTRESULTS (PRINTER  :  BOOLEAN; 

E  i  EXAMEIfFO; 

T  :  SUBTEST; 

STNUM  t  INTEGER); 

VAR  I  :  INTEGER: 


(e  graphical  detailed  feedback  e) 
PROCEDURE  GRAPWISPLAY; 


PROCEDURE  GRAPKHSPLAY; 
VAR  X  :  INTEGER; 

ANSUER  ;  CHAR; 

RANK  :  REAL; 


(*  calculate  percentile  rank  based  on  ability  e) 

PROCEDURE  PERCENT IL£(XC00RD  i  REAL; 

VAR  PROBABILITY  :  REAL); 

VAR  AX, 

TEMP, 

DENSITY, 

AVGSQ  :  REAL; 

BEGIN 

AX  ABS(XCOORO); 

TEMP  1.0  /  (1.0  -f  0.2316419  *  AX); 

AVGSQ  -XCOORO  e  XCOORO  /  2.0; 

DENSITY  0.3909423  *  EXP (AVGSQ); 

PROBABILITY  1.0  -  OENSITY  e  TEMP  * 

((((1.330274  *  TEMP  -  1.021256)  *  TEMP  ♦  1.701470) 
*  TEMP  -  0.3565630)  *  TEMP  ♦  0.3193015) ; 

IF  XCOORO  «  0  THEN 

PROBABILITY  1.0  -  PROBABILITY; 

PROBABILITY  PROBABILITY  e  100.0; 

END;  (e  percentile  *) 


V  A  A  .  .  -  .  -  ■ 
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m 


(«  plote  the  graph  *) 

PROCEDURE  EPLOT; 

VAR  POSITION  :  PACKED  ARRAY [-30. .30)  OP  CHARj 
EST  :  INTEGER: 

Z  :  INTEGER: 

VARIANCE  :  INTEGER: 

MJTt  :  INTEGER: 

THETA10  :  REAL: 

ERROR10  :  REAL: 

BEGIN  (e  epiot  *) 

NUT1  0: 

FOR  X  0  TO  QUESTIONS  DO 
BEGIN 

IF  T.lTEMIfFOtXI.ITEMNUn  >-  0  THEN 

UITH  T.  1  TEfllNFO  [XI  DO 

BEGIN 

NUO  NUO  ♦  1: 

F I LLCHAR  (POS I T I  ON,  61 ,  *  M; 

THETA10  THETA  *  10; 

EST  ROUND (THETA10) ; 

IF  CORRECT  -  TRUE  THEN 
POSITION tEST)  ’X* 

ELSE 

POSITION  tEST]  ’O’; 

ERROR10  ERROR  *  10: 

VARIANCE  ROUND (ERROR10) ; 

FOR  Z  1  TO  VARIANCE  DO 
BEGIN 

POSITION IEST+Z)  :- 
POSITION IEST-Z1 
END: 

URITEIOEST, POSITION); 
URITE10EST.THETA:4:2); 

URITEIOEST,  *  ’  ,ERR0R:4:2) ; 

PERCENTILE (THETA, RANK) ; 

URITELNIOEST,’  ’.RANK:3:1); 

END;  (*  uith  ») 

END;  («  for  e) 

IF  PRINTER  THEN 
BEGIN 

URITELNIOEST) ; 

URITELN(DEST,’  ’:20,NUn. 

*  Iteea  were  administered’); 
URITELN(OEST) ; 

END; 

END;  (e  epiot  *) 


BEGIN  (*  graphdi splay  a) 

IF  PRINTER  TEEN 
BEGIN 

URITEIDEST,'  ’:24, ’Report  on 
URITE(DEST.TOROER); 

URITELN(DEST,’  ’.’Teet’); 

URITEIDEST,* 10  Nueber:  ’); 

URITE  (OEST.E. ID) ; 

URITELNIDEST); 

URITELNIOEST,’  ’:24,’X  -  Correct’,  ’  ’:12, 

’0  -  Incorrect’ ) ; 

URITELNIOEST,’  ’:7, 

'Error  Band  Plotted  is  +  and  -  Standard  Devi  a  ion’it 
URITELNIOEST); 

END; 

IF  PRINTER  THEN 
URITELNIOEST. 

’  ’:2S,  ’Ability  Level’) 

ELSE 
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m 

»  *  a  *  * 

m 


% 

•/a* 


kfM 


C*.-N 

L'Vv  V 

revN-Vv^v^v:- 


URITELNIOEST,  *  Teat  :  ’.TOROER, 

*  Ability  Level  (X«right,  0-urong)*); 

URITELNIDEST, 


-2.5  -2.0  -l.S  -1.0  -0.5  0.0  0.5  1.0  1.5  2.0  2.5*. 

•  Ability  ')  i 

URITELNIDEST, 

•I - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - ♦, 

*1 - 1  Est  Var  Rank  X’); 

EPLOT: 

END;  («  graphdi splay  *) 


(*  eieple  smeary  ») 

PROCEDURE  S1MPLESUMMARY; 

BEGIN 

URITELNIDEST): 

URITEIDEST, 1  *  :24,  ‘Report  on  ’); 

URITEIDEST.TORDER): 

URITELNIDEST, ’  •.’Test*): 

URITELNIDEST): 

URITELNIDEST,’  Exaeinee  :  \E.I0): 

(URITEIDEST,’  M  of  screene  in  test  :  ’, 

EXAMINEE. TESTLENGTH  CSTNUMI ) : ) 

URITEIDEST,’  U  of  itees  aneuered  :  ’ .T.NUMITEMS) : 
URITELNIDEST, ’  »  correct  :  ’.T.NUMCORR); 

URITELNIDEST); 

END;  I*  eieple  atiBS8ry  *) 


(«  table  the  reeulte  •) 

PROCEDURE  TABLED I SPLAY i 
BEGIN 

IF  PRINTER  THEN 
SIMPLESUttlARY; 

IF  NOT  PRINTER  THEN 
BEGIN 

GOTOXY 128,1); 

IRITEC  Report  on  ’); 

GOTOXY 128,2); 

URITEITORDER); 

GOTOXY  126,5); 

(IRITEI**  of  ecreene  in  teet  t  *, 

EXAMINEE.  TESTLENGTH [STNUtll ) ; ) 

GOTOXY (26, 6); 

URITEClV  of  (teas  aneuered  :  ’.T.NUMITEMS); 
GOTOXY 126, 7); 

URITEI’0  correct  i  ’.T.NUMCORR); 

GOTOXY (26. 18); 

END; 

END;  (a  table  diaplay  *) 


BEGIN  («  outputresul te  e) 

IF  T.NUMITEMS  >  0  THEN 
BEGIN 

IF  PRINTER  THEN 
REURI TE (OEST.UNI TNUMPRINTER) 

ELSE 

REURI TEIDEST, ’CONSOLE  :  ’); 

IF  NOT  PRINTER  THEN 
PAGE (OUTPUT); 

RESET  IF I LEO I  RECTORY , I NOEXNAME ) ; 

SEEK  IF  I  LEO I  RECTORY, SPARAMS . SUBORDER  ISTNUM) ) ; 
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GET  (FI  LEO  I  RECTORY)  j 

TOROER  FI  LED  I  RECTORY''.  TESTNAME; 

CLOSE (F I LEO I RECTOR Y ,  LOCK ) : 

CASE  CURRSTRAT  OF 
NONE  :  SIMPLESUmARY; 

B102222, 

B54321, 

B108642  :  GRAPHDISPLAYj 
TIMED  :  TABLED! SPLAY; 

EM); 

IF  NOT  PRINTER  THEN 
STALL; 

aOSE  (OEST, NORMAL); 

END; 

END;  («  outputresul te  e) 


BEGIN  («  subtest 
CASE  SUBOUT  OF 


feedback  e) 


1  i  OUTPUTRESULTS  (FALSE.  EXAM  I  NEE.  TESTS.  T  INDEX); 
2.3  :  OUTPUTRESULTS  (TRIE,  EXAfl  I  NEE,  TESTS,  TINOEX) ; 
4,5  :  BEGIN 

OUTPUTRESULTS (FALSE . EXAMINEE . TESTS, TINOEX) ; 
OUTPUTRESULTS (TRUE, EXAMINEE, TESTS, TINOEX) ; 
EM); 


EM); 

END;  («  eub test feedback  «) 


(•  session  feedback  e) 

PROCEDURE  SESSIONFEEOBACK; 

VAR  RSLOT  :  INTEGER; 

BEGIN 

(e  get  location  of  first  subteet  *) 
RSLOT  ;-  ERECNUTI  *  GflAXSUBTEST ; 

(*  display  results  of  each  subteet  e) 
FOR  TINOEX  i-  1  TO  GflAXSUBTEST  00 
BEGIN 


(*  get  strategy  to  display  appropriate  feedback  e) 
CURRSTRAT  EXAMINEE. STRATEGY [TINOEX] ; 

(«  load  results  into  record  *) 

LOADRESULTS (RSLOT); 

(*  if  any  questions  answered  «) 

IF  TESTS. NUfl ITEMS  >  0  THEN 
BEGIN 

CASE  OUTPUTCOOE  OF 

1  ;  SUBTFEEDBACK (1,1); 

2  :  SUBTFEEDBACK (1,2); 

3  ;  SUBTFEEDBACK (1,4); 

END; 

END; 

RSLOT  RSLOT  ♦  1; 

END;  (e  for  *) 

END;  (*  session  feedback  «) 


BEGIN  (e  feedback  e) 


IF  OUTPUTCOOE  <>  0  THEN 
BEGIN 
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(*  cannot  give  eeseion  feedback  to  deeoe  *) 

IF  (DEMOFLAG)  AND  (FBTVPE  -  FBSESSION)  THEN 
EXIT (FEEDBACK); 

IF  (FBTYPE  -  FBSUBTEST)  OR  (FBTYPE  -  FBSESSION)  THEN 
BEGIN 

TEXT80MOOE; 

INVERSE; 

END; 

CASE  FBTYPE  OF 
FBITEM  :  ITEMFEEDBACK; 

FBSUBTEST  :  SUBTFEE08ACK (FBCOOE.OUTPUTCOOE) ; 
FBSESSION  :  SESSIONFBACK; 

END; 

IF  (FBTYPE  -  FBSUBTEST)  OR  (FBTYPE  -  FBSESSION)  THEN 
BEGIN 

TEXT40HOOE; 

INVERSE; 

END: 

ENO: 

END;  (e  feedback  e) 
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*  *> 

e  Text  f  i  le  :  A0f11N.0IR/A. PASVAB.  TEXT  Voluee  :  TFILES  *) 

*  Codefile  :  A. PASVAB. COOE  Voluee  :  CATDATA  *> 

*  *> 

*  June  10,  1983  NPRDC  «) 

«  This  function  receives  a  theta  (CURRABILITY)  level  for  a  certain  •) 

«  subtest,  and  returns  a  value  representing  the  predicted  ASVAB  «) 

*  score  for  a  pencil/paper  test.  The  score  is  obtained  through  a  •) 

*  ’table  look-up’  free  a  file  of  records  corresponding  to  a  particular  *) 

*  subtest.  The  lookup  is  done  bg  using  the  theta  value  as  a  keg  a) 

*  to  the  appropriate  record  in  the  file.  For  example,  if  thsta-2.70  or  -2.70*) 

*  then  slot  #7  in  record  #2  will  contain  the  score  to  be  accessed.  *) 

*  Each  of  the  score  slots  correspond  to  theta  values  0.1  apart,  e.g.  *) 

*  thetas  of  4.80,4.90,  occupy  record  #4  slots  #8,9  respectively.  For  *) 

*  thetas  to  the  0.01  place,  tuo  lookups  Mill  take  place,  one  for  the  *) 

*  slot  belou  and  for  the  slot  above-  for  theta  of  2.392  record  #2  *) 

*  3  and  4  will  be  accessed.  This  ui 1 1  be  followed  by  a  simple  linear  *) 

*  interpolation  of  the  tuo  values  resulting  in  an  approximate  score  *) 

*  accurate  to  +-0.01.  *) 


FUNCTTON  PREASVABCALC  ( TtCTA: REAL ): REAL: 


CONST 

MAXREC-S; 

I1AXSL0T-9: 

TYPE 

TfCTAREC -RECORD 

P:  PACKED  ARRAY  (0.  .flAXSLOT! OF  REAL:  (*  P-  positive  thetas  *) 

N:  PACKED  ARRAY  [0.  .flAXSLOT)  OF  REAL;  (*  N-  negative  thetas  *) 

END; 

VAR 

SCOREC: THETAREC; 

SCORE. Z:REAL; 

C. I. J.Y: INTEGER: 

SCOREFILE: FILE  OF  TVCTAREC: 

CONT.POS: BOOLEAN, 

HIGH.  LOU,  TVCTA1:REAL; 


FUNCTION  INTERP(LOU.HIGH:REAL):REAL; 

BEGIN 

SCORE:-  (THETA  -  THETAD/0.1,  (*  INTERPOLATE  *) 

INTERP:-  (SCORE  *  (HIGH -LOU))  +  LOU; 

END;  (*  interp  *) 


PROCEDURE  SEEKRECIY: INTEGER); 

VAR  X: INTEGER: 

BEGIN 

FOR  X:-  0  TO  V  00  (*  SIMULATE  SEEK  FUNCTION  *) 

GET (SCOREFILE) ; 

SCOREC  : -SCOREFILE’'; 

RESET (SCOREFILE); 

END; 

(*  seekrec  •) 


PROCEDURE  GETSCORE; 
BEGIN  (*  gstscore  *) 
IF  POS  T)CN 
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BEGIN 

SCORE:  -SCOREC.PtClj 
IF  Y-HAXREC  THEN 

POS: -FALSE:  (*  IF  POS  ASSERTED.  CHANGE  BACK  *) 

END 

ELSE 

SCORE : -SCOREC . N (C) t 
END:  («  getecore  *) 


PROCEDURE  GETAOORESSIVAR  THETA: REAL): 

BEGIN  (*  getaddress  *) 

IF  THETA  <  0  THEN  POS: -FALSE; 
THETA:-  ABS (THETA); 

V: -TRUNC (THETA) ; 

Z:-TV€TA  -  Y; 

Z:-(Z  •  10)+  0.000444; 

C: -TRUNC (Z); 

IF  (NOT  POS)  AND  (Y  >-  6)  (e  TV 

THEN 

BEGIN 

POS: -TRUE;  (*  CHANGE 

Y  :-  MAXREC: 

IF  THETA1  >-  6.9  THEN 
BEGIN 

C  :-  HAXSLOT; 

CONT: -FALSE; 

END; 

END 

ELSE  IF  POS  AND  (TVCTA1  >-  4.9) 

THEN 

BEGIN 

Y:-MAXREC-1; 

C:-t1AXSLOT; 

CONT: -FALSE; 

END; 

END;  (e  getaddress  e) 


(e  THETA  IS  -6;  GOTO  RECORD  #5 


(*  CHANGE  POS  TO  GET  LAST  REC  *) 


PROCEDURE  LOOKUP (VAR  THETA: REAL); 

BEGIN  (e  lookup  «) 

GETADDRESS (THETA); 

SEEKREC(Y); 

GETSCORE; 

IF  CONT  THEN 
BEGIN 

LOU: -SCORE; 

HIGH;  -TVETA1  +  0.1; 
GETAOORESS(HIGH) ; 

SEEKREC (Y) ; 

GETSCORE: 

HIGH: -SCORE; 

SCORE: -INTERP (LOU. HIGH) 

END; 

CLOSE (SCOREFILE); 

;  (a  lookup  «) 


IN  («  preasvabcalc  e) 

CASE  CURRTEST  OF 

0:  RESET  (SCOREFILE,  ’/CATOATA/IKTABLE. DATA' ) ; 
1 :  RESET (SCOREF ILE, ’ /CATOATA/GSTABLE.DATA’ ) ; 
2:  RESET  (SCOREFILE,  VCATDATA/ART ABLE.  DATA’ ) ; 
3:  RESET (SCOREFILE, ’/CATDATA/nKTABLE.DATA’ ) ; 
4;  RESET (SCOREFILE, ’ /CATDATA/PCTABLE.DATA’ ) 
OTHERUISE  EXIT (PREASVABCALC) 

END;  (stcasee) 
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CONT:-TRUE; 

POS: -TRUE: 

THETAIj*  ABS(TRUNC  (THETA  «  101/10);  (*  preserve  tenths  place;  truncate  rest*) 
IF  A8S (THETA) -THETA1 
THEN  CONT : -FALSE; 

LOOKUP (THETA) ; 

PREASVABCALC: »  SCORE; 

END;  («  preasvabcalc  *) 
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Textfile  :  PfIGR.DIR/P.nGR. TEXT 
Codefile  :  P.tIGR.COOE 


(♦File  last  modified  :  Jan  31.  1983 


Volume  :  TFILES 
Volume  :  CATOATA 


(e  This  program  sets  up  one  file  for  the  CAT  program.  The  file  is  the  testing 
(e  strategies  &  parameters  given  to  examinees. 


(efS+e> 

PR0GRAT1  SYSTEriSETUP: 

USES  CHAINS TUFF; 

CONST  (s  ascii  values  *) 
BELL  -  7; 

LARROU  -  8; 

RARROU  -  21s 
RET  -  13: 

ESC  -  27; 

SPACE  -  32; 

ASCI  I  OFFSET  -  48; 
NIL  -  -1; 


(*  default  file  for  any  output  text  files  *) 

OEFAULTFILE  -  "CAT-SETUP. TEXT’ ; 

(e  test  configuration  file  «) 

SETUPOATA  «  *CATOATA:PARAnETERS.DATA" ;  (s  test  default  parameters  *) 

(*  subtest  directory  el 

INDEXNAHE  -  "CATDATA: TESTINOEX.OATA" ; 

MAX I TEMPOOL  -  308; 

(e  maximum  allouable  subtests  given  e) 

GMAXSUBTEST  -  20; 

(e  maximum  spaces  in  directory  e) 

MAXSUB TESTS  -  20; 

(e  printer  unit  number  e) 

UNITNUHPRINTER  -  "printer;"; 

VERSION  -  ’  (1.03)’; 

TYPE  SETOFCHAR  -  SET  OF  CHAR; 

(e  test  directory  e) 

OIROATA  -  PACKED  RE CORO 

UNUSED  s  BOOLEAN; 

TESTNAflE  ;  STRING; 

1TEMCOOE  ;  PACKED  ARRAY 

[0. .MAX  I TEMPOOL) 

OF  INTEGER; 

END; 


(e  set-up  parameters  e) 
SETUP  INFO  -  PACKED  RECORD 


(e  flags  U  tests  in  sequence,  >  20  •  no  eubtest  e) 
SUBOROER. 

(e  strategy  setup  e) 

SUBSTRAT  :  PACKED  ARRAY  11.. GMAXSUBTESTJ 

OF  8.. 128; 


«  • 
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5-i- 


(*  question  feedback  code  e) 

1TEMFB. 

(*  question  feedback  output  code  *) 

ITEMOUTPUT, 

(*  subtest  feedback  code  *) 

SUBTESTFB, 

(*  subtest  feedback  destination  code  *) 

SUBTESTOUTPUT, 

(*  session  feedback  code  e) 

SESSIONFB, 

(*  session  feedback  destination:  screen/pr inter  *) 
SESSIONOUTPUT  :  0..128: 

(«  subteet  atop  flag  *) 

SUSS TOP  :  PACKED  ARRAY tl .. GMAXSUBTEST)  OF  BOOLEAN: 

(«  subteat  length  *) 

SUBLENGTH  :  PACKED  ARRAY [1 . . GMAXSUBTEST) 

OF  0. .128: 

(*  initial  variance  *) 

CKERROR  :  ARRAY  II..  GMAXSUBTEST)  OF  REAL: 

END; 


VAR  output, 

COMMAND  :  CHAR; 

DIGITS. 

LETTERS. 

CHARACTERS  i  SETOFCHAR; 

TEMPNAME ORDER, 

NAME  ORDER  i  ARRAY  tl ..  GMAXSUBTEST]  OF  STRING: 


(*  string  buffer  *) 

LINEBUF  :  PACKED  ARRAY C0. . 79)  OF  CHAR; 


(*  test  directory  «) 

DIRECTORY  :  DIROATA; 
FILEDIRECTORY  :  FILE  OF  OIRDATA; 


(«»*  set-up  variables  ***) 
SPARAMS  i  SETUP INFO; 

FILESPARAMS  :  FILE  OF  SETUPWO; 


(*  output  text  file  variable  *) 

OEST  :  TEXT; 

(*  directory  record  information  ml 
OIRINFO  :  ARRAY [0..MAXSUBTESTS]  OF  RECORO 

(«  record  occupied  m) 
NOTUSEO  :  BOOLEAN: 

(•  subtest  name  *) 

TNAME  :  STRING; 

(•  U  items  in  subtest  *) 
ITEMCOUNT  :  INTEGER; 

END: 
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(* .  *> 

(«  urites  the  directory  infornation  to  record  ») 

(*  puts  necessary  file  info  in  nain  aeeory  *) 

PROCEDURE  GETDIRINFO; 

VAR  I ,K, I COUNT  :  INTEGER; 

BEGIN 

(«  initialize  the  directory  inforeation  *) 

FOR  I  0  TO  flAXSUBTESTS  DO 
DIRINFOtll  .NOTUSED  TRUE; 

(*  get  the  directory  inforeation  *) 

I  :  -  8; 

RESET (FILEOIRECTORY,  INOEXNAfE) ; 

REPEAT 

SEEK (FILEOIRECTORY, I) ; 

GET  (FILEOIRECTORY); 

IF  NOT  (FILED1RECT0RYMMJSE0)  THEN 
BEGIN 

DIRECTORY  s-  FILEOIRECTORY"; 

01 RINFOIIJ. NOTUSED  FALSE; 

D1RINF0II3 .TNAflE  DIRECTORY. TESTNAflE; 

DIRINFOtll .  ITEHCOUNT  0; 

END; 

I  s-  I  ♦  1; 

UNTIL  I  >  flAXSUBTESTS; 

CLOSE  (FILEDIRECTORY, NORMAL) ; 

END;  («  getdirinfo  *) 

I* - *• 

(«  clear  screen  and  put  cursor  at  0,0  •) 

PROCEDURE  PAGE (DUTtlY  :  CHAR); 

BEGIN 

URITE(Ofl(28)); 

GOTOXY(0, 0) ; 

ENO;  (*  page  *) 

(* - - - *) 

(*SI  /TFILES/PMGR.DIR/P.UTL.TEXT  *)  futilities*) 

(*SI  /TFILES/PHGR. DIR/P. V1EU. TEXT  *)  (*  look  at  current  configuration  *) 

(*«I  /TFILES/PMGR.OIR/P.SP. TEXT  *)  (*  set  up  test  configuration  *) 

(*•1  /TF I LES/PTIGR •  0 1 R/P •  FBACK ,  TEXT  *)  (*  set  up  feedback/output  *) 

I* - *) 

(*  systea  set-up  eenu  *) 

PROCEDURE  SETUPfENU; 

VAR  X, Y  ;  INTEGER; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY(15,0) ; 

UR  I  TEC  CONFIGURE  TEST  PARAMETERS  MENU  \  VERSION); 

GOTOXY (0,4) ; 

URITECSelect  one  of  the  follouing  procedures  by  entering  its  nueber.’); 

X  ;■  16; 

Y  8; 

GOTOXY (X.Y); 

URITECl.  QUIT*); 

GOTOXY (X.Y+l); 

URITEC2.  LOOK  AT  CURRENT  PARAMETERS’); 

GOTOXY (X.Y+2); 

URITEC3.  MODIFY  SYSTEM  PARAMETERS* ) ; 

GOTOXY (X.Y+3); 

UR!  TEC  4.  CONFIGURE  FEEDBACK  PARAHETERS’ ) ; 

GOTOXY (X.Y+7); 

URITE (’Enter  Choice  »  s  ’); 

END;  (*  setup  eenu  *) 

(* . - . —  *) 
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(«  load  the  eet-up  parameters  a) 

PROCEDURE  LOAOPARAfISi 
VAR  t.J  s  INTEGER* 

BEGIN 

RESET  (F1LESPARAMS.  SETUPOATA)  j 
SEEK  (FI LESPARAMS, 0) : 

GET  (FILESPARAMS)  * 

SPARAfIS  F I LESP ARAMS''* 

CLOSE  (F  J  LESP ARAMS ,  LOCK )  * 

J  *  •  1  * 

RESET (FILEOIRECTORY, 1 NOEXNAME) * 

REPEAT 

1  *.  SP ARAMS . SUBOROER (J1 * 

IF  (I  <-  MAXSUBTESTS)  THEN 
BEGIN 

SEEK (FILEOIRECTORY. I) * 

GET (FILEOIRECTORY) * 

NAME ORDER (J1  t-  FILEOIRECTORY*. TESTNAME* 
END 
ELSE 

NAMEOROER CJ]  s-  ••* 

J  :•  J  ♦  1* 

UNTIL  J  >  GMAXSUBTEST* 

CLOSE (F I LED I REC TORY . LOCK ) * 

END*  (e  loadparaae  a) 


(a  sava  the  eet-up  par  east  ere  a) 
PROCEDURE  SAVEPARAMS* 

BEGIN 

RESET (F I LESPARAMS. SETUPOATA) * 
SEEK (F l LESP ARAMS , 0) * 

FI LESPARAMS*  «-  SP ARAMS i 
PUT (FI LESPARAMS)* 

CLOSE (F1LESPARAMS.LOCK) * 

END*  (a  eaveparaae  a) 


(aaaa  aain  prograa  aaa) 

BEGIN 

GETOIRINFO* 

DIGITS  *-  t’0’ . .  *9’ J  * 

LETTERS  s-  CA* . . ‘Z* .  . ’xM  * 

CHARACTERS  *-  ICHRI32) . . OR (126)1  * 

F I LLCHAR (L I NEBUF [0] .80, '  ’)* 

LOAOP ARAMS* 

REPEAT 

SETUPTENU* 

COMMAND  GETCHAR<  l’l’ .. '41  J , TRUE. FALSE. TRUE)  * 

CASE  COftlAND  OF 

•r  *  * 

’2*  *  VIEUPARAMS* 

•3'  *  SETPARAMETERS* 

*4’  *  SETFBACK* 

END* 

UNTIL  COMMAND  -  T* 

SAVEPARAMS* 

SETCHAINCCATOATAjCATPROJECT’  )  * 
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Textf  i  la  t  PfIGR . DIR/P. UTL. TEXT 
Codef i la  :  P.HGR.COOE 


Voluae  :  TFILES 
Voluae  »  CATDATA 


1,  1982 


(*  This  file  contains  the  utilities  used  in  prograa  P.HGR.  a) 

I*  fora  feeds  the  printer  «) 

PROCEDURE  TOPOFFOfifl; 

BEGIN 

REURITE  (0EST.UN1  TNUHPR INTER) : 

URITE (DEST.CHR (12) ) ; 

CLOSE  (OEST,  LOCK); 

END;  (*  top  of  fora  *) 


{«***  rings  the  bell 
PROCEDURE  SOU AUK; 
BEGIN 

URITE(CW(BELL)); 
END;  (a  squawk  e) 


(a***  blank  out  lines  eeaa) 

PROCEDURE  BLANKLINES (START. COUNT .ENDCURSOR  s  INTEGER); 
VAR  I  s  INTEGER; 

BEGIN 

GOTOXY (0, START) ; 

FOR  I  1  TO  (COUNT-1)  DO 
URITELNC  *  ;  39); 

URITEC  *  ;39) ; 

GOTOXY (0. ENDCURSOR); 

END:  (*  blank  l  ines  «) 


(*  read  an  acceptable  character  froa  the  keyboard  «) 
FUNCTION  GETCHAR (OKSET  :  SETOFCHAR; 

FLUSHOUEUE. ECHO, BEEP  :  BOOLEAN)  :  CHAR 
VAR  MASK  ;  PACKED  ARRAY  10.. 0)  OF  CHAR; 

BEGIN 

IF  FLUSHOUEUE  THEN  UNITCLEAR12) ;  (*  flush  buffer  «) 
REPEAT 

UNI  TREAD (2, MASK. 1) ; 

IF  BEEP  AND  NOT  (MASK  10]  IN  OKSET)  T)€N  SOUAUK; 
UNTIL  OASKI0]  IN  OKSET; 

IF  ECHO  AND  (MASK  10]  IN  CCHR(32) .  .Ofm2S)l )  T)CN 
WRITE  (MASK  10)); 

GETCHAR  :  -  MASK  10] ; 

END;  (a  getchar  a) 


(aaaa  display  a  aessage/uait  for  a  keystroke  eases) 
PROCEDURE  STALL; 

VAR  ST ALLCHAR  :  CHAR; 

BEGIN 

URITECPrese  <RET>  to  continue  '); 

STALLCHAR  :  - 

GE TCHAR ( ICHR (RET ) , CHR (ESC ) ] . TRUE .FALSE , TRUE ) ; 
IF  STALLCHAR  -  CHR (ESC)  THEN  EXIT (PROGRAM) ; 

END:  (a  stal I  a) 
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(*  read  in  a  string  and  save  in  a  temporary  buffer  ») 

PROCEDURE  FILLBUF(CHARCNT  :  INTEGER: 

OK SET  :  SETOFCHAR:  ERASE  :  BOOLEAN): 

VAR  I  :  INTEGER: 

IOCHAR  t  CHAR: 

BEGIN 
I  0; 

REPEAT 

IF  I  >  (CHARCNT-1)  THEN 
I DCHAR  : - 

GETCHAR ( tCHR  (LARROU) ,CHR (RET)] , TRUE, TRUE, TRUE) 

ELSE 

BEGIN  (11 
IOCHAR  : - 

GETCHAR  (OKSET  +  tCHR(RET) , 

CHR  (LARROU) ,  C)«  (RARROU)  ] , 

TRUE, TRUE, TRUE) : 

IF  IOCHAR  IN  OKSET  THEN 
BEGIN  (2) 

LINEBUF III  IOCHAR; 

I  I  +  1: 

END;  (2) 

ENO;  (1) 

IF  IOCHAR  -  CHR  (LARROU)  T*N 
BEGIN  (31 

IF  I  -  0  TLEN 
SOU AUK 
ELSE 

BEGIN  (41 

URITE (CHR (LARROU)); 

I  I  -  1: 

IF  ERASE  THEN 
BEGIN  (5) 

URITEC  M; 

URITE  (CHR  (LARROU)); 

LINEBUF II]  ’  *: 

ENO;  (5) 

ENO:  (4) 

END  13) 

ELSE 

IF  IOCHAR  .  CHR (RARROU)  THEN 
BEGIN  (6) 

URITE  (LINEBUF  [I]); 

I  I  ♦  1; 

END;  (61 

UNTIL  IOCHAR  .  CHR (RET); 

END;  (*  f i I Ibuf  *) 

(« - - - •) 

(«***  open  a  new  text  file  «««*) 

PROCEDURE  GETNEIFILE; 

VAR  F1LENATC  :  STRING; 

ERRNUH  ;  INTEGER; 


<* .  «) 

(***e  get  a  legal  filename  ***») 


FUNCTION  NATE OK  «  BOOLEAN; 

VAR  I  :  INTEGER; 

BEGIN 

IF  FILENAME  -  ,f  THEN 
BEGIN  ill 

FILENAME  OEFAULTFILE: 

GOTOXY  (44,0) ; 

URITE (FILENAME); 

ENO  (II 
ELSE 

IF  FILENAME tl)  -  CHR(esc)  THEN  EXIT (PROGRAM) ; 

IF  (POS(*  .TEXT*  .FILENATE)  <>  (LENGTH (FILENAME)  -4)) 
OR  (LENGTH (FILENAME)  <  6  )  THEN 
FILENAME  :>  CONCAT (FILENAME,  \  TEXT’ ) ; 

(*•!-«) 
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RESET  (OEST, FILENAME)  i 
(*«!+*) 

IF  I  ORE  SUL  T  -  8  T)CN 
BEGIN  (2) 

1RITELN; 

URITELNj 

URITECOeetroy  old  ’  .FILENAME,  *  ?  Press  •'N'*  or  ,,Y”  ’); 

IF  GETCHARIfy’/n'.’Y’.’N*], TRUE, TRUE, TRUE)  IN  I’Y* , ’y’)  THEN 
BEGIN  131 

aOSEIDEST,  PURGE): 

REURITEIOEST.FILENAHE); 

NAflEOK  TRUE: 

END  (3) 

ELSE 

NAME OK  FALSE: 

END  (21 
ELSE 

BEGIN  14) 

(*«!-*) 

REUR1TE  (DEST.FILENAft) : 

(etl+a) 

ERRNUT1  IORESULT; 

IF  IORESULT  <>  8  THEN 
BEGIN  (5) 

URITELNj 

URITELNj 

URITELNC  Cannot  open  * , FILENAME,  *  Io  error  U'  .ERRNUM) ; 

NATCOK  FALSE: 

END  IS) 

ELSE 

NAHEOK  i.  TRUE: 

END;  (4) 

END;  (a  naaeok  s) 

(a .  •) 

BEGIN  (agetnewfile  «) 

REPEAT 

PAGE (OUTPUT) j 

URITECEnter  output  file  naae,  then  press  <RET»  :  ’)t 
READLN (FILENAME) ; 

UNTIL  NAHEOK; 

END; 

(* - e) 

(«  send  control  characters  to  screen  «) 

PROCEDURE  SCRCONTROLII.J.K  :  INTEGER);  I  PASCAL  interface  to  Screen  Control) 

VAR  N:  INTEGER;  I  APPLE  III  Standard  Device  Drivers) 

GJWRAYi PACKED  ARRAY  18..  3)  OF  8.. 255;  I . Pages  34  to  46.) 

BEGIN 

G_ARRAY  181 : -  I;  G_ARRAY  Ill  :-J;  G_ARRAY  121  j-K; 

UNI  TURI TE  (1 ,  G  .ARRAY,  3. .  12) ; 

END;  («  scrcontrol  a) 

(t - s) 

(«  switch  to  48  cotuan  screen  a) 

PROCEDURE  TEXT40DOGE; 

BEGIN 

SCRCONTROL (16, 8, 28);  (Text  code  486U,  followed  by  clearscreen.) 

END;  (a  text48eode  a) 

(a - s) 

(a  switch  to  88  coluen  screen  a) 

PROCEDURE  TEXT88D00E; 

BEGIN 

SCRCONTROL (84,8,8) ;  (Restore  Viewport  to  its  original  condition.) 

SCRCONTROL (16,2, 28) ;  (  Text  (lode  88,  followed  by  clearscreen.) 

END;  (a  text88aode  a) 
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(e  *) 

(*  Textfile  :  PtIGR.DIR/P. VIEU. TEXT  Volume  :  TFILES  e) 

(*  Codefile  :  P. MGR. CODE  (’Include*  file)  Volume  :  CATDATA  *) 

(*  *) 

(*  File  last  modified  :  Jan  28,  1383  NPRDC  e) 


(*  vieu  the  current  conf igurat i on  m) 
PROCEDURE  VIEUPARAMS: 

CONST  EMPTY  -  ’ 

VAR  COUNT. 

I  :  INTEGER; 

SCREEN  :  BOOLE AN : 


(* .  *) 

(*  list  out  the  tests  *) 

PROCEDURE  LISTTESTS; 

BEGIN 

URI TE (OEST,  *  TEST  LENGTH  STRATEGY  ’)j 

URITELN(OEST, *  CKERROR  STOPFLAG’); 


FOR  1  1  TO  GMAXSUBTEST  00 

BEGIN  (1) 

IF  SPARAMS.  SUBORDER  til  «-  MAX  SUB  TESTS  TEEN 
BEGIN  (21 

URlTEtOEST.NATEOROERtl)  :  30): 

URI TE(DEST, SPARAMS. SUBLENGTH (II  :  S)t 


CASE  SPARAMS. SUBSTRATII)  OF 

0  :  URI TE (OEST. ’  None  ’)t 

1  :  URI TE (OEST. ’  B  102222  ’): 

2  :  URI TE (OEST, '  B  S4321  ’); 

3  :  URITE (OEST. '  B  108642  ’): 

4  :  URITE  (OEST.’  Timed  *),• 

END;  («  cases  e) 


URITE (OEST. SPARAMS. CKERROR (I)  «  12  :  3): 
IF  SPARAMS. SUBSTOP  (I)  T)€N 
URITE (OEST.’  Yes’) 

ELSE 

URI TE (OEST. ’  No’) i 

URI TELN (OEST): 

END:  (2) 

END:  (1) 

END:  (*  list  tests  e) 


(*  list  the  feedback  configuration  «) 
PROCEDURE  LISTFBACK: 

BEGIN 

URI TELN (OEST): 

IF  SPARAMS.  I TEMOUTPUT  -  0  T)€N 
URITE (OEST. ’I tern  :  none  ’) 
ELSE 

BEGIN  (1) 

URITE (OEST. ’Item  :  ’): 

CASE  SPARAMS. I TEMFB  OF 

1  :  URITE (OEST, ’right/wrong’): 

2  :  URITEIOEST, ’remedial’): 

END;  (*  cases  *) 

END:  (1) 

IF  SPARAMS. SUB TESTOUTPUT  -  0  THEN 
URITE (OEST, ’Subtest  :  none  ’) 
ELSE 

BEGIN  12) 

URITE (OEST, ’Subtest  :  ’); 

CASE  SPARAMS. SU8TEST0UTPUT  OF 


1  :  URITE (OEST, ’screen  ’); 

2  :  URI TEIDEST, ’printer  ’); 

3  :  URITE (OEST, ’screen  ft  printer 
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END;  (a  cases  a) 

END:  (2) 

IF  SPARAMS.SESSIONOUTPUT  -  0  THEN 
URI TE(DEST,* Sees  ion  :  none  *) 

ELSE 

BEGIN  (3) 

UR1TE(0EST, ’Session  :  ’); 

CASE  SPARAJ1S .  SESS I ONOUTPUT  OF 

1  :  URI  TEIOEST, *  screen’ ) : 

2  :  URI TEIOEST, ’pr inter’ )j 

3,4,5  :  URI TEIDEST,* screen  8  printer’): 

END;  («  cases  a) 

END;  (3) 

URITELN(DEST); 

END;  (a  listfback  a) 

(a .  a) 

BEGIN  (a  vieu  parses  a) 

(a 

PAGE (OUTPUT); 

URITECList  conf iguration  to  «  ’); 

GOTOXY(IS.S); 

URITE(’l)  Console’); 

GOTOXy(1S,7); 

URITEC2)  Printer’); 

GOTOXY 124,0); 

IF  GETCHARI  1*1’ , ’2’ I .TRUE, TRUE, TRUE)  -  ’2’  THEN 
BEGIN  111 

REURI TE (DEST.UNI TNUOPRINTER) ; 

SCREEN  x-  FALSE; 

END  ID 
ELSE 

BEGIN  12) 

a) 

REURI TE (DEST, ’CONSOLEi ’) ; 

SCREEN  TRUE; 

(a  EM);a) 


PAGE (OUTPUT) ; 
LISTTESTS; 

LISTFBACK; 

IF  SCREEN  THEN 
STALL; 

CLOSE (OEST, LOCK); 

END;  (a  vieu  paraaa  a) 
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. . . 

(s  *) 

(*  Text f i Is  :  PMGR.DIR/P.SP.TEXT  Volume  :  TFILES  *) 

(*  Codefile  :  P.nCRXOOE  ('Include'  file)  Volume  :  CATOATA  m) 

(«  «) 

(ssssssssessssrsss  *«»«»»»»»»»**«««»'»*«»'«■»»»»*»»»  ssemorssssrsisss-eessssMsssssss) 

(m  File  last  modified  :  Jan  28,  1983  NPROC  *) 

(«»»>»»»■»»»«>  »'»S»»«»«««'«'«»««»»«m«««»|r»*»l»»»T>»»«»»»**»'S»»»«S»»««S.>'<°*»*»«SS«.*SuMus) 


PROCEDURE  SETPARAflETERS; 

VAR  COTV1  AND  :  CHAR: 

TEMP  :  SETUPINFO: 

(* .  *) 

PROCEDURE  SELECT20; 

VAR  I, 

J. 

X. 

LISTCNT, 

COUNT, 

CURSORLOC  :  INTEGER: 

COfiriANO  :  CHAR; 

OK, 

FOUND  :  BOOLEAN; 

LISTINFO  :  ARRAY  (0.  .flAXSUBTESTSl  OF  RECORD 

NAflE  :  STRING; 

INLIST  :  BOOLEAN; 

END; 

FREE  :  ARRAY II.. GT1AXSUBTEST1  OF  BOOLEAN; 

(* .  *) 

(»  get  list  of  available  subteats  8  current  ones  *) 

PROCEDURE  GETLIST; 

BEGIN 
I  0; 

J  :  •  0; 

REPEAT 

IF  NOT  (OIRINFOtJl . NOTUSEO)  TEEN 
BEGIN  (1) 

LISTItEOIIl  .NATE  OIRINFOtJl  .TNAflE; 

K  1; 

FOUND  FALSE: 

REPEAT 

IF  NATE  ORDER  IK)  -  LISTINFO  II 1  .NAME  TIEN 
FOUND  TRUE; 

K  K  ♦  1; 

UNTIL  (FOUND)  OR  (K  >  GHAXSUBTEST) ; 

IF  FOUND  THEN 

LISTIfFOlII  .DEIST  TRUE 

ELSE 

LISTINFO  (I).  IM.IST  FALSE; 

I  I  +  1: 

END:  (1) 

J  J  +  1; 

UNTIL  J  >  MAXSUBTESTS; 

LISTCNT  s-  I —1 ; 

END;  (*  get  I i st  *) 


(* - - - 

(*  add  a  subtest  to  the  list  m) 
PROCEDURE  ADOSUBTEST; 

VAR  CONVERT  :  ARRAY  [1.. 21)  OF  INTEGER; 

ADO  :  INTEGER; 

BEGIN 

PAGE (OUTPUT); 

IF  COUNT  <  GflAXSUBTEST  THEN 
BEGIN  ill 


«) 
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K  1; 

FOR  I  0  TO  LISTCNT  00 

IF  NOT  LISTINFOII).  INLIST  THEN 
BEGIN  (21 

GOTOXY (18.K+1) ; 

URITEIK,'.  '  .LIST  INFO  til  .NATE)  j 
CONVERT  (KI  Ij 
K  K  ♦  lj 

END;  (2i 
IF  K  -  1  Tl-EN 
BEGIN  13) 

URITEC  ’ :  18,  ’No  tests  available  to  add!’): 

SOU  AUK; 

URITELN; 

URITELN: 

STALL; 

END  131 
ELSE 

BEGIN  (4) 

OK  :•  FALSE; 

REPEAT 

FILLCHARtLINEBUF  t01 , ’  ’.2); 

GOTOXY (0,0); 

URITEI 

'Type  in  the  number  next  to  the  teat  you  wish  to  add  and  then  press  <RET>. ’); 
GOTOXY  (18, 23); 

URITECEnter  Choice  U  :  ’); 

FILLBLF (2.  t'0' . .  *9’] .  TRUE) ; 

IF  LINEBUF (11  IN  t'0*. .'9']  THEN 
A00  :-  ((ORO (LINEBUF t01)  -  48)  «  10) 

♦  (ORO (LINEBUF til)  -  48) 

ELSE 

ADO  ORO  (LINEBUF  (03)  -  48: 

IF  ADO  -  0  THEN  EXI T(AOOSUBTEST) ; 

IF  (ADO  <  0)  OR  (AOO  >  K)  THEN 
SQUA1* 

ELSE 

BEGIN  (S) 

OK  TRUE; 

LISTINFO (CONVERT (A001). INLIST  TRUE; 

END;  (SI 
UNTIL  OK; 

END;  (4) 

END  (1) 

ELSE 

BEGIN  (G) 

SOLI  AUK; 

URITEC  ’sl8.'  Cannot  add  another  test!*); 

URITELN; 

URITELN: 

STALL: 

END;  (6) 

END;  (*  addsubtest  *) 


(*  normalize  8  fix  the  lists  what  ue  try  to  do  is  save  the  e) 
(*  configuration  of  tests  that  uere’nt  removed.  •) 
PROCEDURE  AOJUSTLIST; 

BEGIN 

(«  save  the  ’free1  indices  in  the  array  of  tests  order  *) 

(*  and  remove  from  ‘inlisf  the  things  already  in  the  e) 

(*  subtest  order  list,  so  ue  don’t  count  them  tuice.  e) 

FOR  I  t-  1  TO  GMAXSUBTEST  00 
BEGIN  (1) 

FREE  ( 1 3  :•  TRUE;  (m  initialize  i th  slot  to  unoccupied  *) 
J  :•  0; 

FOUND  FALSE; 

(m  see  if  i th  subtest  is  in  list  *) 
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REPEAT 

IF  (LI  ST  INFO  [J1 .  INLIST)  AND 
(L I  ST  INFO  IJ).  NAME  -  NAMEORDER  ID)  THEN 
BEGIN  (21 
FOUND  i-  TRUE; 

FREEH)  :•  FALSE;  (*  mark  i  th  location  as  occupied  *) 
LISTINFOIJ).  INLIST  FALSE;  (*  take  out  of  list  *) 

ENO;  (21 
J  :  •  J  +  1 ; 

UNTIL  (FOUNO)  OR  (J  >  LISTCNT) • 

IF  NOT  FOUNO  THEN 
NAMEORDER  ID 
ENO;  111 

(*  put  rest  of  inlist  tests  not  already  in  subtest  order  array  *) 
(*  into  the  array  e) 

FOR  I  0  TO  LISTCNT  00 

BEGIN  131 

IF  LISTINFO III  -  INLIST  THEN 
BEGIN  (41 
J  1; 

FOUND  FALSE; 

(«  find  unoccupied  slot  to  put  in  «) 

REPEAT 

IF  FREE  (J)  THEN 
BEGIN  (SI 
FOUND  TRUE; 

FREEUJ  FALSE; 

END  (SI 
ELSE 

J  J  +  1; 

UNTIL  (FOUND)  OR  (J  >  GMAXSUBTEST) ; 

(•  no  empty  spots  e) 

IF  J  >  GMAXSUBTEST  T)€N 
BEGIN  161 
PAGE (OUTPUT) ; 

URITECList  formation  error!’); 

SOU  AUK; 

IKITELN; 

IfllTELN; 

STALL; 

END  (61 
ELSE 

NAMEORDER  (J)  LISTINFOU)  .NAME; 

END;  (4) 

END:  131 

1  :  ■  1 ; 

FOR  J  s-  1  TO  GMAXSUBTEST  DO 
BEGIN  (71 

IF  NAMEORDER  [J)  <>  ”  T)CN 
BEGIN  (8) 

TEMP. SUBSTRAT  (1)  SPARAMS.SUBSTRAT [J] ; 

TEMP. SUBSTOP II)  SPARAMS. SUBSTOP t J) ; 

TEMP. SUBLENGTH  II)  s-  SPARAMS. SU8LENGTH  EJ) ; 

TEMP.CKERROR(I)  ;.  SPARAMS. CKERROR IJ) ; 

TEMPNAMEOROER  1 1 1  :•  NAMEORDER  IJ) ; 

TEMP. SUBORDER (I)  t-  I; 

1  I  ♦  1; 

ENO;  (8) 

ENO;  171 

UHILE  I  <-  GMAXSUBTEST  DO 
BEGIN  19) 

TEMP.SUBOROERU)  :■  128;  (*  mark  as  unused  *) 

TEMPNAMEORDER  (I )  ”; 

I  I  +  1; 

ENO;  19) 

SPARAMS  TEMP; 

NAMEOROER  s-  TEMPNAMEORDER; 

END;  (*  adjust  list  *) 
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(* .  •) 

BEGIN  (*  select 20  s) 

TEMP  s-  SPAR AMS; 

GETLISTj 

REPEAT 

CURSORLX  0; 

COUNT  s-  0; 

PAGE (OUTPUT) j 

URITELNC  Tests  Current  ly  in  List’); 

FOR  I  s-  1  TO  40  DO 
URITEC-'); 

URITELN; 

FOR  I  0  TO  LISTCNT  DO 
BEGIN  (II 

IF  LISTINFOtll.  INLIST  T)CN 
BEGIN  (2) 

URITELNC  •  .LIST  INFO  MI  .NATO  i 
COUNT  !-  COUNT  ♦  1; 

END;  121 
END;  (II 

FOR  I  i-  1  TO  40  DO 
UR1 TE  C  -' ) ; 

GOTOXY (50,2) ; 

URI  TE  C INSTRUCTIONS’ ) j 
GOTOXY  (45. 4); 

URITECTo  add  a  subtest  to  the  list,')! 

GOTOXY (45. 5); 

URITE ('press  the  letter  "A".  You’); 

GOTOXY (45. 8) ; 

URITE Ceay  have  up  to  20  subtests.*); 

GOTOXY (45. 8); 

URITECTo  reeove  a  subtest  froa  the'); 

GOTOXY (45. 9); 

URITECtist.  press  <RET>  until  the*); 

GOTOXY (45. 101; 

URI TECcursor  is  newt  to  the  subtest’  )j 
GOTOXY (45.11); 

URITE ('you  uish  to  reeove,  then  press’); 

GOTOXY (45. 12) ; 

URITECthe  letter  "R".’); 

GOTOXY (45, 14); 

URITE  ('Press  ''Q”  to  quit.'); 

GOTOXY (0,2); 

REPEAT 

COMMAND  GETCHARI  ('A' . 'R' . 'Q' .CHR(RET)) , TRUE. FALSE. TRUE) ; 

CASE  COMMAfO  OF 
'A*  ;  AOOSUBTEST ; 

'R'  s  BEGIN  (3) 

I  >1; 

K  ;-  -1; 

REPEAT 

1  t-  1  ♦  1; 

IF  LISTWOm.  INLIST  THEN 
K  ;•  K  ♦  1; 

UNTIL  <  -  OJRSORLOC; 

LISTINFOtll.  IH.IST  FALSE; 

END;  (3) 

•0’  ;  ; 

END;  (s  cases  «) 

IF  COMMAND  -  OP  (RET)  T>€N 
BEGIN  (4) 

CURSORLOC  i-  CURSORLX  ♦  1; 

IF  CURSORLX  >  (COUNT  -  1)  THEN 
BEGIN  151 
GOTOXY (0.2); 

CURSORLX  t-  0; 

ENO  (SI 
ELSE 

GOTOXY(0.2  ♦  CURSORLX); 

END;  14) 

UNTIL  COMMAND  <>  CHR(RLT) ; 

UNTIL  (COMMAND  -  ’Q')  AND  (COUNT  <-  GMAXSUBTEST) ; 
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AOJUSTLIST  j 
ENO:  (*  select  20  «) 

I* - - - - - *) 

(*  display  the  sub  test  order  *) 

PROCEDURE  ORDER; 

TYPE  VAL 1 0TESTNUH8ERS  -  1. .  GMAXSUBTEST t 
VAR  1. 

J. 

K. 

NUT1  :  INTEGER: 

NOTESTOUPLICATION. 

HATCH  :  BOOLEAN; 

BUCKET  :  SET  OF  VALID TESTNUHBERS: 

CH  :  CHAR; 

(*  .  •) 

(*  display  current  order  •) 

PROCEDURE  SHOUTESTS: 

BEGIN 

PAGE (OUTPUT) ; 

K  0; 

GOTOXY (50,3) ; 

URITECCurrent  Order'); 

FOR  I  1  TO  GMAXSUBTEST  DO 
BEGIN  111 

IF  SP ARAMS. SUBORDER  til  <-  MAXSUB TESTS  THEN 
BEGIN  (2) 

GOTOXY (40, I +3) ; 

K  K  +  1; 

URITEC  ’  :2,OFHI+64) , ' .  '); 

URITEC  ’ ,  NAMEORDER 1 1 1 ) ; 

ENO  121 
ENO;  ID 


ENO;  (m  show tests  «) 

(*  .  *) 

BEGIN 


TEMP  SP ARAMS; 

SHOUTESTS: 

GOTOXY (0.0); 

URITELNI 

'Type  the  letter  next  to  the  eubtest  you  uish  to  put  in  the  neu  order.'); 
URITELNI'Or  press  <ret>  to  keep  the  saee  subtest  in  order.’); 

IF  K  >  0  THEN 
BEGIN  111 

BUCKET  [) ; 

GOTOXY  IIS,  3); 

WTITECNeu  Order’); 

FOR  I  1  TO  K  00 
BEGIN  12) 

N0_TEST_DUPLICAT!0N  FALSE; 

REPEAT 

GOTOXY (2. I +3); 

UR1TEU,’.  ’); 

CH  GETCHARI  I’A' .  .CHRIK464)  .CHRI13)]  .TRUE, FALSE, 

TRUE); 

IF  CH  <>  CHRI13)  THEN 
NUM  OROICH)  -  64 
ELSE 

IF  CH  -  CHRI13)  THEN 
BEGIN  (3) 

NUM  I; 

SPARAMS. SUBORDER  II 3  NUM; 

GOTOXY 140, I +3) ; 

URITEC  ’ : 39) ; 

GOTOXY (6, I +3); 

URITEC  ’ : 32) ; 

GOTOXY  (6.  U3); 

UR1TELN (NAMEORDER  CNUHJ ) ; 
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ENO:  13) 

IF  NUT’  IN  BUCKET  THEN 
BEGIN  (4) 

GOTOXYiG, 1+3); 

URITELNC  test  duplication  ’); 

SQUAWK; 

ENO  (41 
ELSE 

BEGIN  (5) 

BUCKET  BUCKET  +  tNUfl)  i 
NO  TEST_DUPL1 CATION  TRUE; 

GOTOXY (40.NUM+3) ; 

URITEC  *:39) ; 

GOTOXYiG, 1+3) ; 

URITEC  * :32) ; 

GOTOXYiG, 1+3); 

UR  I TELN (NAME ORDER  INUH) ) ; 

SPARAMS.  SUBOROER  (I)  NUT; 

ENO;  (5) 

UNTIL  NO.TESTJXJPLICATION; 

END;  (2) 

FOR  I  1  TO  K  00 
BEGIN  (61 

J  SP AR ATtS. SUBOROER ill; 

TEnP.SUBSTRATCI)  <.  SPARAMS. SUBSTRAT IJ) ; 

TEMP.  SUBSTOP  II)  SPARAMS.  SUBS  TOP  IJI ; 

TEMP.  SUBLENGTH  (1)  SPARAMS.  SUBLENGTH  IJ) ; 

TEMP. CKERROR  III  SPARAMS. CKERROR I  J) ; 

TEMPNAMEOROER  ID  NAME  ORDER  IJ) ; 

TEMP. SUBOROER til  It 

END;  (6) 

FOR  l  (K+l)  TO  GMAX SUB TEST  00 

TEMP. SUBOROER  II)  :•  128;  (e  eark  as  unused  a) 

SPARAMS  TEMP; 

NAME ORDER  TEMPNAMEOROER; 

ENO;  III 

ENO;  (*  order  a) 

(a . a) 


(a  set  up  eubtest  strategy  a) 

PROCEDURE  STRATEGY; 

VAR  I. 

K  s  INTEGER; 

CH  :  CHAR; 

DONE  :  BOOLEAN; 

BEGIN 

PAGE (OUTPUT); 

URITELNC  Beg  inning  at  the  top  of  the  list,  type  <return>  to  keep  old  strategy’ ); 
URITELNCor  type  the  nuaber  of  the  strategy  you  uant.  Type  ”Q”  to  quit.’); 
GOTOXY (0.3); 

URITEt 


Subtests  Strategy  Aval  table  Strategies’ ) ; 

GOTOXY (56, 5); 

URITEC8.  NONE’); 

GOTOXY (SG.G); 

WRITE  Cl.  B  10.2.2.2.2’); 

GOTOXY (56, 7); 

URITEC 2.  B  5. 4.3. 2.1’); 

GOTOXY (56. 8); 

URITEC3.  B  10.8.6.4.2* ) ; 

GOTOXY (56,9); 

WRITEC4.  TIMED’); 

K  s-  0; 

FOR  I  1  TO  GMAXSUBTEST  00 
BEGIN  (1) 

IF  SPARAMS. SUBOROER (I)  <-  MAXSUB TESTS  THEN 
BEGIN  (21 

GOTOXY (0,1+3); 

URITE  (NAMEOROER(I)  ;  30); 

GOTOXY (31, 1+3); 

URITEC  ’,  SPARAMS.  SUBSTR  AT  III ,  ’ .  ’ ) ; 

CASE  SPARAMS. SUBSTRAT III  OF 
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0  s  URITECNone  *); 

1  i  URITECB  102222* )  j 

2  s  URITECB  54321  *); 

3  s  URITECB  108642*  )t 

4  s  URI  TEC  Timed  *); 

END;  (*  cases  *) 

K  K  +  1; 

END;  (2) 

END;  (1) 

I  li 

DONE  FALSEs 

UHILE  (K  >  0)  AND  (NOT  OONE)  DO 
BEGIN  (3) 

GOTOXY(34, 1+3) ; 

CH: -GETCHAR ( C 0* . . *4* ,CHR (13) , *Q* 1 , TRUE, FALSE. TRUE) s 
IF  CH  -  *Q*  THEN  DONE  s-  TRUE: 

IF  CH  IN  C0*..*4*]  THEN 
BEGIN  (4) 

SP ARAMS . SUBSTRAT  ( I )  (-  ORO(CH)  -  48j 
GOTOXY (34, 1+3) i 
URITE(0R0(CH)-48,  *.’)( 

CASE  CH  OF 

*0*  s  URITECNone  *)i 
*1*  (  URITECB  102222*)-. 

*2*  s  URITECB  54321  *); 

*3*  ••  URITECB  108642*)! 

*4*  :  URITECTieed  * )  •. 

END;  («  cases  «) 

END;  (41 
I  :•  I  +  1; 

IF  I  >  K  THEN 
I  1: 

END;  (31 

ENO;  (*  strategy  e) 

(*  - . - . *) 

(*  set  the  subtest  stop  flags  «) 

PROCEDURE  STOP; 

VAR  I. 

TCNT  ;  INTEGER; 

CH  ;  CHAR; 

DONE  :  BOOLEAN! 

BEGIN 

PAGE (OUTPUT); 

URITELNCBeginning  at  the  top  of  the  list,  press  <return>  to  keep  old  value’); 
URITELNCor  press  **Y’*  or  ”N”.  Press  ”Q”  to  quit.*); 

GOTOXY (24. 3); 

URITEC  Subtests  Stop’); 

TCNT  0; 

FOR  I  1  TO  GMAXSU8TEST  DO 

BEGIN  111 

IF  SPARAMS. SUBORDER  ID  <-  MAXSUBTESTS  THEN 
BEGIN  <21 
GOTOXY (6, 1+3); 

URI TE (NAME0RD6R  III  (  30)  i 
GOTOXY (54, 1+3); 

IF  SPARAMS. SUBSTOP (I)  THEN 
URITECY*) 

ELSE 

URITECN* ) ; 

TCNT  TCNT  +  1; 

END;  (2) 

ENO;  (1) 

DONE  (-  FALSEt 
I  ;•  1; 

UHILE  (TCNT  >  0)  ANO  (NOT  DONE)  DO 
BEGIN  131 
GOTOXY (54. 1+3); 

CH  !-  GETCHAR (  CQ* , *N* , * Y*  ,CHR(13)  I ,  TRUE,  (*  AOO  y  AND  n  HERE  *) 

TRUE, TRUE) ; 

IF  CH  -  *Y*  THEN 
SPARAMS. SUBSTOP II)  TRUE 
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ELSE 

IF  CH  -  ’N*  THEN 
SPARAflS. SUBSTOP  III  FALSE 
ELSE 

IF  CH  -  *Q’  THEN 
□ONE  TRIE; 

I  I  ♦  lj 
IF  I  >  TCNT  THEN 
I  : »  1  i 
END:  13) 


END;  (e  atop  *) 

(* - - - - - - - - *) 


(*  set  up  It  of  quest ione/subteat  *) 

PROCEDURE  flAXQUESTIONS; 

VAR  I. 

TCNT  :  INTEGER: 

CH  :  CHAR; 

CHVALUE  :  PACKED  ARRAY t0..1I  OF  CHAR; 

DONE. 

OK  :  BOOLEAN; 

1* .  •) 

(«  read  in  a  string  and  save  in  a  temporary  buffer  *) 

PROCEDURE  flAXFILLBUF (CHARCNT  :  INTEGER; 

OK SET  t  SET OF CHAR;  ERASE  :  BOOLEAN); 

VAR  1  :  INTEGER; 

IDCHAR  :  CHAR; 

BEGIN 
I  1; 

REPEAT 

IF  I  >  (CHARCNT-1)  THEN 
IDCHAR 

GETCHAR  ( ICHR  (LARROU) . CHR (RET)  1 .  TRUE.  TRUE.  TRUE) 

ELSE 

BEGIN  ID 
IOCHAR 

GET  CHAR  (OKSET  ♦  ICHR  (RET), 

CHR (LARROU) . CHR (RARROW) J . 

TRUE. TRUE, TRUE); 

IF  IOCHAR  IN  OKSET  THEN 
BEGIN  12) 

LINEBUF III  IDCHAR; 

I  I  ♦  1; 

END;  (2) 

END;  (1) 

IF  IOCHAR  .  CHR (LARROU)  THEN 
BEGIN  (3) 

IF  1  -  0  THEN 
SGUAUK 
ELSE 

BEGIN  141 

UR I TE (CHR (LARROU)); 

I  I  -  1; 

IF  ERASE  THEN 
BEGIN  (5) 

UR I TE  ( ’  ’ ) ; 

URITE  (CHR  (LARROU) ) ; 

LINEBUF  III  :•  '  '; 

ENO;  (51 
END;  (4) 

ENO  (3) 

ELSE 

IF  IOCHAR  -  CHR (RARROU)  T)CN 
BEGIN  (6) 

URITE  (LINEBUF  III), 

I  I  +  1; 

ENO;  16) 

UNTIL  IDCHAR  .  CHR (RET); 

ENO;  (*  maxfillbuf  •) 


128 

r  .•  •. 


Sep  28  10:40  1983  PMGR. DIR/P, SP. TEXT  (  Configures  testing  parameters)  Page  9 


XJJ 


BEGIN  (*  maxquestions  *) 
PAGE (OUTPUT): 


URITELN('From  top  of  list,  press  <R£T>  to  keep  old  value.  To  change  length,’); 
URITELNC  type  the  new  value  you  want,  then  press  <RET>.  Press  ”Q*r  to  quit.*); 


GOTOXY  (24,3) ; 

UR1 TELNC  Sub  tests  U  of  questions’); 

TCNT  0; 

FOR  I  1  TO  GflAXSUBTEST  00 

BEGIN  (1) 

IF  SP ARAMS. SUBORDER  1 1 1  <-  MAXSUBTESTS  THEN 
BEGIN  (2) 

GOTOXY (S. I +3); 

UR I TE (NAMEORDER  1 1 1  ;  30); 

GOTOXY (SS, I +3); 

UR 1 TE ( SP ARAMS . SUBLENGTH  III); 

TCNT  TCNT  ♦  1; 

END;  12) 

END;  (1) 

I  1; 

DONE  FALSE; 

UHILE  (TCNT  >  0)  AND  (NOT  DONE)  00 
BEGIN  (3) 

GOTOXY (SS, 1+3); 

CH  GETCHAR([’Q’,CHR(13)]  +  t’0’ . .  ’9’) .  TRUE, 

TRUE, TRUE); 

IF  CH  -  ’Q’  THEN 
DONE  TRUE 

ELSE 

IF  CH  <>  CHR(13)  tt€N 
BEGIN  (4) 

Ok  FALSE: 

REPEAT 

FILLCHAR (LINEBUF  101 ,2,  *  ’); 

LINEBUF 10]  CH; 

GOTOXY (55. I ♦3); 

URITEC  ’); 

GOTOXY (55. I +3); 

URI TE (CH) ; 

MAXFILLBUF  (2,  (’0’ . . ’9’ 1 ,  TRUE) ; 

MOVELEFT (LINEBUF  10) , CHVALUE  [0) .2) ; 

IF  CHVALUE  -  ’  ’  THEN 

SQUAUK 
ELSE 

BEGIN  (5) 

IF  LINEBUF II]  -  ’  ’  THEN 
SPARAMS.  SUBLENGTH  1 1)  ORO  (LINEBUF  [01 )  -  48 

ELSE 

SP  ARAMS.  SUBLENGTH  (I)  ( (ORO  (LINEBUF  [01 )  -  48)  *  10) 

+  (ORD (LINEBUF  Ill )  -  48); 

END;  15) 

IF  (SPAR AMS. SUBLENGTH (II  <-  0)  OR  (SPARAMS. SUBLENGTH (II  >20) 
THEN 
SQUAUK 
ELSE 

OK  TRUE; 

UNTIL  OK; 

ENO;  (4) 

I  :  •  I  +  1 ; 

IF  I  >  TCNT  THEN 
I  t  —  1* 

ENO;  (3) 

ENO;  (*  maxquestions  *) 


(*  set  ckerror  value  *) 
PROCEDURE  CHECKERROR; 
VAR  I, 

TCNT, 

K  ;  INTEGER; 

CH  :  CHAR; 


•*  .  ^ **  *"•  f  r 
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DONE. 

OX  t  BOOLEAN; 

CHVALUE  s  PACKED  ARRAY (0. . 3]  OF  CHAR; 

BEGIN 

PAGE  (OUTPUT); 

URITELNCBeginning  at  the  top  of  the  list,  type  <return>  to  keep  the  old’); 
URITELNC value  or  tupe  in  the  value  you  want.  Type  ”Q”  to  quit.’); 

GOTOXY (24,3) ; 

URI TE (’Subtests  Check  error  value'); 

TCNT  0; 

FOR  !  1  TO  GflAXSUBTEST  DO 

BEGIN  (II 

IF  SPARAI1S.SU80ROERII]  <-  MAXSUB TESTS  THEN 
BEGIN  (2) 

GOTOXY (6. I +3); 

URITEINAMEORDERIII  t  30); 

GOTOXY (54, I +3); 

UR  I TE (SPARAHS . CKERROR  1 1 1  s  S  s  3); 

TCNT  TCNT  +  1; 

ENO;  (21 
END;  <11 
I  :■  1; 

DONE  FALSE; 

UHILE  (TCNT  >  0)  AND  (NOT  DONE)  00 
BEGIN  (3) 

OX  FALSE; 

REPEAT 

GOTOXY (SS. 1+3); 

CH  GETCHAR([’Q*.’0’..’9’,CHR(13)), 

TRUE. TRUE. TRUE); 

IF  CH  -  ’Q’  THEN 
DONE  TRUE 
ELSE 

IF  CH  <>  CHR<13)  T>£N 
BEGIN  (4) 

GOTOXY (S6. I +3); 

URITET.  ’); 

CHVALUE  (0)  CH; 

GOTOXY (57. 1+3); 

X  0; 

REPEAT 

X  X  ♦  1; 

CH  GETCHAR(  I’0’ . .  ’9*  ,CW(27)J  .TRUE, TRUE, TRUE); 

CHVALUE  (XI  CH; 

UNTIL  (X  -  3)  OR  (CH  -  CHR(27)); 

IF  CH  <>  Of) (27)  THEN 
OX  TRUE 

ELSE 

BEGIN  (51 
GOTOXY (55. 1+3); 

URI TE (SPARAHS. CXERROR  ID  i  5  ;  3) ; 

ENO;  (51 
IF  OX  THEN 
SPAR AHS . CKERROR ( 1 1 

(ORO  (CHVALUE  (01)  -  48)  + 

((ORO (CHVALUE til)  -  48)  *  0.1)  + 

( (ORO  (CHVALUE  (21 )  -  48)  e  0.01)  + 

< (ORO (CHVALUE (31)  -  48)  *  0.001); 

ENO;  (4) 

UNTIL  (DONE)  OR  (OX)  OR  (CH  -  CHR<13)); 

I  »-  l  +  1; 

IF  I  >  TCNT  THEN 

I  ;  ■  1; 

ENO;  (3) 

ENO;  (*  check  error  *) 

<* . — . — - - 

(*  parameter  setup  menu  *) 

PROCEDURE  PARAmENU; 

VAR  X.Y  ;  INTEGER; 

BEGIN 

PAGE (OUTPUT); 


*) 
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GOTOXY(19,0)  j 

URI  TE  (’MODIFY  PARAMETERS  MENU* )  j 
GOTOXY(0,4) ; 

URITECSelect  one  of  the  fol  lowing  procedures  by  entering  its  number.'): 
X  :•  16; 

Y  :•  8; 

GOTOXY (X, Y) j 
URITECl.  QUIT'); 

GOTOXY (X.Y+1); 

UR! TEC 2.  MODIFY  LIST  OF  SUBTESTS  TO  GIVE'); 

GOTOXY (X.Y+2); 

IDITEC3.  ORDER  THE  SUB  TESTS’ ) ; 

GOTOXY (X.Y+3); 

URITEC4.  CONFIGURE  SUBTEST  LENGTH’ ); 

GOTOXY  (X.Y+4); 

URITECS.  CONFIGURE  SUBTEST  STRATEGY’); 

GOTOXY (X.Y+S); 

URITEC6.  CONFIGURE  VARIANCE  CUT-OFF’); 

GOTOXY (X.Y+S); 

UR1TEC7.  CONFIGURE  SUBTEST  STOP  FLAG’); 

GOTOXY  (X.Y+10); 

URI  TEC  Enter  Choice  U  :  '); 

END;  (*  parammenu  e) 


I*  - - - - - ») 

(*  stores  in  the  spar ams. suborder  array,  the  record  numbers  of  the  •) 

(e  subtest  directories  so  ue  won’t  have  to  search  the  test  *) 

(*  directory  later  to  find  the  subtest  directory  we  want.  *) 


PROCEDURE  SETSUBTESTRECNUHS; 

VAR  K. 

RECNUM  :  INTEGER:  (e  U  of  key  errors  in  samples  questions  e) 

FOUND  :  BOOLEAN; 

BEGIN 

FOR  K  : -  1  TO  GMAX SUB TEST  DO 
BEGIN  (1) 

JF  SPAR AMS. SUBORDER  [XI  <-  MAXSUB TESTS  THEN 
BEGIN  (21 

RECNUM  0; 

(*  search  through  test  directory  sequentially  e) 

FOUND  FALSE; 

REPEAT 

IF  (NOT  (DIRINFO (RECNUM] .NOTUSEO)) 

AND  (OIRINFO [RECNUM]  .TNAME  -  NAMEOROER DC) )  THEN 
FOUND  :•  TRUE 
ELSE 

RECNUM  RECNUM  +  1; 

UNTIL  (FOUND)  OR  (RECNUM  >  HAXSUBTESTS) ; 

IF  FOUND  THEN 

SPARAMS.SUBOROEROC1  RECNUM 
ELSE 

BEGIN  (3) 

PAGE (OUTPUT); 

URITELNCSubtest  configuration  error  !’); 

URI  TELNC  Test  ’  .NAMEOROER  IX) ,  ’  in  list,  but  not  in  directory  !'); 
SOU AUK; 

URITELN; 

STALL; 

END;  (31 
ENO;  (2) 

END;  (1) 

ENO:  (e  eetsubtestrecnums  *) 

(* . .  e) 

BEGIN  (*  Set  parameters  *) 

REPEAT 

PARAMMENU; 

COMMAND  GETCHAR<  C  1’ ..  ’7’  ].  TRUE.  FALSE,  TRUE) ; 

CASE  COMMAND  OF 
•  1’  .  . 

’2*  :  SELECT28; 
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•3*  :  OROERj 

•4’  :  MAXQUESTIONS; 

'5’  :  STRATEGY: 

•6*  :  CHECKERROR; 
•7*  :  STOP: 


END: 

UNTIL  COMMAND  -  *1* j 
SETSUBTESTRECNUMS: 

END;  (*  set  parameters 


») 
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(»«»»»«*««»«»»»»»«>»«  ********  »«»»**»♦«) 
(«  *) 

(«  Textfile  :  PMGR .DIR/P. FBACK . TEXT  Voluae  :  TF1LES  *) 

(*  Codefile  :  P.MGR.COOE  (‘Include*  file)  Voluae  :  CATOATA  *) 

(*  _ _ _ _ _ •) 

(*  DEC.  1.  1982  NPROC  e) 

U>«m  >»»»»»**»»»«»>»«***»«»»»*♦♦♦»««»**«*»»»♦♦'»'»■»»»■»»■*>  aa>»s>«rss«a»>ea>iMoi«»««) 


(*  configure  feedback  *) 

PROCEDURE  SETFBACK; 

VAR  COMMAND , 

CH  :  CHAR; 

(*  .  *1 

(*  feedback  configure  aenu  a) 

PROCEDURE  FMENU: 

VAR  X.V  :  INTEGER: 

BEGIN 

PAGE (OUTPUT) j 
GOTOXY  (18.0); 

UR  I  TEC  CONFIGURE  FEEDBACK  MENU’): 

GOTOXY (0,4) ; 

URITECSelect  one  of  the  follouing  procedures  by  entering  its  nuaber.*); 

X  18; 

V  8; 

GOTOXY (X.Y); 

URITECl.  QUIT’); 

GOTOXY (X.Y+1); 

UR1TEC2.  CONFIGURE  QUESTION  FEEOBACK’); 

GOTOXY (X.Y+2); 

URITEC3.  COfFIGURE  SUBTEST  FEEDBACK*); 

GOTOXY (X, Y+3) ; 

URITEC4.  CONFIGURE  SESSION  FEEDBACK*); 

GOTOXY (K,  Y+71 ; 

URITECEnter  Choice  0  s  *); 


END;  (e  faenu  *) 

(e . . . *) 


(»  configure  i tea  feedback/output  e) 

PROCEDURE  ITEM; 

VAR  X.V. OPT  :  INTEGER; 

CHAROPT  :  CHAR; 

BEGIN 

PAGE (OUTPUT) 1 
GOTOXY (18,0); 

UR  l  TEC  QUEST  I  ON  FEEDBACK  TENU’); 

GOTOXY (0.4); 

URITECSelect  one  of  the  folloMing  options  by  entering  its  nuaber.*); 
X  16; 

V  1.  9; 

GOTOXY (X.Y); 

URITECl.  QUIT*); 

GOTOXY (X.Y+l); 

URITEC2.  NO  QUESTION  FEEDBACK*); 

GOTOXY (X.Y42); 

URITE(’3.  RIGHT/tflONG  QUESTION  FEEDBACK*); 

GOTOXY (X.Y+3); 

URITEC4.  REMEDIAL  QUESTION  FEEDBACK’); 

REPEAT 

GOTOXY (0.S); 

URITECYou  currently  have  option  ;  *); 

IF  SP ARAMS. I TEMOUTPUT  -  0  THEN 
OPT  2 
ELSE 

IF  SPARAMS. I TEMFB  -  1  THEN 
OPT  3 

ELSE 

OPT  4; 

URITE (OPT) ; 
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INVERSE; 

CASE  OPT  OF 

2  :  BEGIN 

GOTOXY (X.Y+l); 

URITEC2.  NO  QUESTION  FEEDBACK’); 

END; 

3  :  BEGIN 

GOTOXY (X.Y+2); 

URITEC3.  RIGHT/URONG  QUESTION  FEEDBACK’); 

END: 

4  :  BEGIN 

GOTOXY (X.Y+3); 

URITEC4.  REMEDIAL  QUESTION  FEEM5ACK’ ) ; 

END; 

END;  (*  cases  «) 

NORMAL; 

GOTOXY (X.Y+7); 

URITEC  ’); 

GOTOXY (X.Y+7); 

UR  I TE (’Enter  Choice  U  t  ’); 

CHAROPT  GETCHARI  fl* ..  ’4’] .  TRUE,  TRUE.  TRUE) ; 

CASE  CHAROPT  OF 

•2’  ;  SP ARAMS. I TEMOUTPUT  s-  8; 

•3*  :  BEGIN 

SPARAMS. I TEMOUTPUT  1; 

SPARAMS. ITEMFB  1; 

END; 

’4*  :  BEGIN 

SPARAMS. I TEMOUTPUT  1; 

SPARAMS.  ITEfFB  s-  2; 

END; 

END;  (*  cases  *) 

CASE  OPT  OF 

2  :  BEGIN 

GOTOXY (X.Y+l), 

UR1TEC2.  NO  QUESTION  FEEDBACK’), 

EM); 

3  :  BEGIN 

GOTOXY (X.Y+2); 

l»ITEC3.  RIGHT/URONG  QUESTION  FEEDBACK’); 

END; 

4  :  BEGIN 

GOTOXY (X.Y+3); 

URITEC4.  REMEDIAL  QUESTION  FEEDBACK’); 

END; 

END:  (*  cases  *) 

UNTIL  CHAROPT  -  T, 

END;  (*  item  *) 

I* - - - - - - - *) 

(*  configure  subtest  feedback/output  *) 

PROCEDURE  SUBTEST; 

VAR  X.Y.OPT  s  INTEGER; 

CHAROPT  :  CHAR; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY  (18,0); 

UR  I  TEC  SUBTEST  FEEDBACK  MENU’); 

GOTOXY (8,4); 

URITE(’Select  one  of  the  following  options  bu  entering  its  number.’); 

X  t-  16; 

Y  ;-  9; 

GOTOXY (X.Y); 

URITECl.  QUIT’); 

GOTOXY  (X.Y+1); 

URITEC2.  NO  SUBTEST  FEEDBACK’  1; 

GOTOXY (X.Y+2): 

URI  TEC  3.  SUBTEST  FEEOBACK  TO  SCREEN’); 

GOTOXY  (X.Y+3)  i 

UR1TEI’4.  SUBTEST  FEEDBACK  TO  PRINTER’); 
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GOTOXY (X.Y+4); 

URITEC5.  SU8TEST  FEEDBACK  TO  SCREEN  AND  PRINTER’); 

REPEAT 

GOTOXY (0,6) ; 

mi  TEC  You  currently  have  option  :  *); 

IF  SP ARAMS. SUBTESTOUTPUT  -  0  T)CN 
OPT  2 
ELSE 

IF  SP ARAMS. SUBTESTOUTPUT  -  1  THEN 
OPT  3 
ELSE 

IF  SPARAMS. SUBTESTOUTPUT  -  2  THEN 
OPT  4 
ELSE 

OPT  5; 
miTE(OPT); 

INVERSE; 

CASE  OPT  OF 

2  :  BEGIN 

GOTOXY (X.Y+1); 

UR! TEC 2.  NO  SUBTEST  FEEDBACK’); 

END; 

3  :  BEGIN 

GOTOXY (X.Y+2); 

URITEC3.  SUBTEST  FEEDBACK  TO  SCREEN’); 

END; 

4  :  BEGIN 

GOTOXY (X.Y+3); 

URITEC4.  SUBTEST  FEEDBACK  TO  PRINTER’); 

END; 

5  :  BEGIN 

GOTOXY (X.Y+4) ; 

URITECS.  SUBTEST  FEEDBACK  TO  SCREEN  AND  PRINTER’); 

END: 

END;  (»  cases  *) 

NORMAL; 

GOTOXY (X.Y+8); 

URITEC  ’); 

GOTOXY (X.Y+8); 

mi TE (’Enter  Choice  0  :  ’); 

CHAROPT  GETCHARd’l' . .  ’S’l ,  TRUE,  TRUE, TRUE) ; 

CASE  CHAROPT  OF 

*2’  :  SPARAMS. SUBTESTOUTPUT  0; 

•3*  :  SPARAMS . SUBTESTOUTPUT  1; 

•4*  :  SPARAMS. SUBTESTOUTPUT  2; 

•S’  :  SPARAMS. SUBTESTOUTPUT  3; 

END;  (*  cases  *) 

CASE  OPT  OF 

2  <  BEGIN 

GOTOXY  (X,  Y+l ) ; 

URITEC2.  NO  SUBTEST  FEEDBACK’); 

END; 

3  :  BEGIN 

GOTOXY (X.Y+2); 

WRITEC3.  SUBTEST  FEEDBACK  TO  SCREEN’); 

END; 

4  :  BEGIN 

GOTOXY (X.Y+3); 

mi  TEC  4.  SUBTEST  FEEDBACK  TO  PRINTER’); 

END; 

5  i  BEGIN 

GOTOXY (X.Y+4); 

mi  TECS.  SUBTEST  FEEDBACK  TO  SCREEN  ANO  PRINTER’); 

ENO; 

END;  (*  cases  *) 

UNTIL  CHAROPT  -  ’1’; 

END;  (*  subtest  *) 

(e - - - - . . «) 
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(*  configure  session  feedback/output  *) 

PROCEDURE  SESSION; 

VAR  X.Y.OPT  :  INTEGER; 

CHAROPT  t  CHAR; 

BEGIN 

PAGE (OUTPUT) ; 

G0T0XYI18.8); 

WRITE  I* SESSION  FEEDBACK  MENU’); 

GOTOXY (0,4) ; 

WRITECSelect  one  of  the  following  options  bg  entering  its  nueber.'); 
X  «-  16; 

Y  :  •  9; 

GOTOXY (X.Y); 

URITECl.  QUIT’); 

GOTOXY (X.Y+1); 

WRITEC2.  NO  SESSION  FEEDBACK’); 

GOTOXY (X.Y+2); 

URITEC3.  SESSION  FEEDBACK  TO  SCREEN’); 

GOTOXY (X.Y+3); 

URITE<’4.  SESSION  FEEDBACK  TO  PRINTER’ >; 

GOTOXY (X.Y+4); 

URITEC5.  SESSION  FEEDBACK  TO  SCREEN  AND  PRINTER’); 

REPEAT 

GOTOXY (0.6); 

URITEI’You  currently  have  option  i  *); 

IF  SPARAMS.SESSIONOUTPUT  -  0  T)€N 
OPT  2 
ELSE 

IF  SPARAMS.SESSIONOUTPUT  -  1  THEN 
OPT  s-  3 
ELSE 

IF  SPARAMS.SESSIONOUTPUT  -  2  T)€N 
OPT  4 
ELSE 

OPT  S; 

IBITE(OPT); 

INVERSE; 

CASE  OPT  OF 

2  t  BEGIN 

GOTOXY (X.Y+1) ; 

URITEC2.  NO  SESSION  FEEDBACK'); 

END; 

3  <  BEGIN 

GOTOXY (X.Y+2); 

URITEC3.  SESSION  FEEDBACK  TO  SCREEN’); 

END; 

4  ;  BEGIN 

GOTOXY (X.Y+3); 

URITEC4.  SESSION  FEEDBACK  TO  PRINTER’); 

END; 

5  <  BEGIN 

GOTOXY (X.Y+4); 

URITECS.  SESSION  FEEDBACK  TO  SCREEN  AND  PRINTER’); 

END; 

END;  (*  caeea  *) 

NORMAL; 

GOTOXY (X.Y+0); 

URITEC  ’); 

GOTOXY (X.Y+8); 

WRITECEnter  Choice  U  ;  ’); 

CHAROPT  i-  GETCHARI  I’1’..’5’J, TRUE, TRUE, TRUE); 

CASE  CHAROPT  OF 

*2’  t  SPARAMS.SESSIONOUTPUT  :■  0; 

•3’  :  SPARAMS.SESSIONOUTPUT  ;-  1; 

*4’  s  SPARAMS.SESSIONOUTPUT  2; 

’S’  :  SPARAMS.SESSIONOUTPUT  s-  3; 

END;  («  cases  *) 

CASE  OPT  OF 
2  i  BEGIN 

GOTOXY (X.Y+1); 


Feb  16  16:26  1333  PtIGR.DIR/P.FBACK. TEXT  (  Configures  feedback  parameters)  Page  5 


UR1TEC2.  NO  SESSION  FEEDBACK’); 

END: 

3  :  BEGIN 

GOTOXY (X.Y+2); 

UfU TE (’3.  SESSION  FEEOBACK  TO  SCREEN’); 

ENO; 

4  :  BEGIN 

GOTOXY  (X.Y+3) ; 

WRITE  (’4.  SESSION  FEEOBACK  TO  PRINTER’ )5 
ENOs 

5  :  BEGIN 

GOTOXY (X.Y+4) ; 

URITEt’5.  SESSION  FEEDBACK  TO  SCREEN  AND  PRINTER* ); 
ENO: 

END:  (*  cases  *) 

UNTIL  CHAROPT  -  ’1’; 

ENO;  (*  session  *) 


(* .  *) 

BEGIN  (*  setfback  *) 

REPEAT 

FHENU; 

COITIANO  GETCHAR (  f  1’ . .  *4* I . TRUE, FALSE.  TRUE) ; 

CASE  COTflAND  OF 
'  1 '  •  • 

’2’  i  i TEM; 

’3'  :  SUBTEST: 

•4*  :  SESSION: 

END;  («  cases  •) 

UNTIL  COITIANO  -  ’1*; 

ENO:  («  setfback  *) 
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t«S+a) 

issstsaasssaassasssssrsssssssassss’sssaasessasssieassssaaessasassaseasssasasasa) 


*  a) 

*  Textfile  :  TMGR.OIR/T. MGR. TEXT  Voluae  :  TFILES  *> 
»  Codefile  :  T. MGR. CODE  Voluae  :  CATDATA  a) 
«  a) 
a»i»»r**SS*'«»<«l«,»»S'S»asa»*l»SS*SS»»'»««'as»,*t»sa»»e»»»««»SSS*,r»,S,WSMS»seaaaaSS) 
«  File  last  Modified  :  Feb  28,  1983  NPRDC  a) 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa) 
a  a) 
a  Functions  :  1)  provides  file  Maintenance  of  tests.  a) 
a  2)  allows  creation  of  neu  tests.  a) 
a  3)  access  to  existing  tests  for  insertion.  Modification,  or  a) 
a  deletion  of  test  questions.  a) 
a  4)  lists  tests  to  file,  console,  or  printer  for  verification,  a) 
a  5)  writes  subtests  froa  Corvus  to  five  inch  floppy.  a) 
a  a) 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa) 
a  a) 
a  1.  Slot  8  of  subtest  directory  reserved  for  subtest  instructions.  a) 
a  a) 
a  2.  Slots  1..5  of  eubtest  directory  reserved  for  subtest  saaples.  a) 
a  a) 
a  3.  Variant  type  of  answers  stored.  May  store  itea  answer  as  character,  a) 
a  integer,  or  packed  array  of  7  characters.  This  handles  the  different  a) 
a  types  of  subtests.  a) 
a  a) 
a  4.  First  character  of  subtest  naae  specifies  type  of  screen  foraat.  a) 
a  a  -  80  char/inverse,  a  -  80  char/noraal,  7  -  48  char/noraal.  If  none  a) 
a  of  these  characters  occur,  then  the  screen  defaults  to  40  char/inverse,  a) 
a  a) 
a  5.  If  test  is  a  timed  test,  the  second  character  of  the  subtest  naae,  a) 
a  ui 1 1  be  a  digit  and  specify  the  aaxiaua  tiae  in  Minutes,  allowed  for  a) 
a  that  subtest.  a) 
a  a) 
a  6.  Graphics  feature  added,  if  graphics  flag  is  set  the  prograa  will  look  a) 
a  for  a  graphics  file  to  display,  else  it  looks  in  the  normal  ascii  file,  a) 
a  a) 
a  7.  Text  output  routine  iaproved.  Text  foraat  slightly  changed.  After  a) 
a  gotoflag  and  x  and  y  coordinates,  the  number  of  bytes  for  that  line  is  a) 
a  saved.  Text  output  consists  of  aass  Movement  of  bytes  into  line  a) 
a  buffer,  then  writing  the  buffer  to  the  screen  for  each  line.  a) 
a  a) 
a  8.  Timed  subtests  now  can  be  set  to  Minutes  and  seconds.  Two  More  a) 
a  characters  in  subtest  naae  used  for  seconds.  a) 
a  a) 
a  3.  Uill  display  coapressed  graphics  files  as  well  as  noraal  fotofiles.  a) 
a  a) 


aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa) 


PROGRAM  TESTMGR, 

USES  PGRAF, 

CHAINS TUFFj 

CONST  (a  ascii  values  a) 

ETX  -3;  (a  control -c  a) 

BELL  -  7; 

NUL  -  0s 
LARROU  -  8s 
RARROU  -  21s 
RET  -  13s 

UP  «  11s  (a  up  arrow  a) 

OOUN  -  10s  (a  down  arrow  a) 

ESC  -  27; 

SPACE  -  32s 

PAGEOUT  •  16;  (a  cntrl-p  on  apple  ii  a) 
ASCIIOFFSET  -  48;  (a  ascii  zero  a) 

NIL  -  -1; 

XSCREEN  -  79;  (a  screen  dimensions  a) 
YSCREEN  -  23; 


(a  block  sized  buffer  for  ascii  a) 
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MAXITEMBUF  -  2047; 

MAXLINEBUF  a  79:  (*  string  buffer  size  «) 

(*  screen  boundaries  for  question  text  e) 

(•  lines  0-3,  20-23  reserved  for  s) 

(*  system  Messages.  •) 

TOPflAX  -  0S 
LEFTMAX  -  0: 

B0TT0IT1AX  -  19: 

(*  question  textfile  control  codes  *) 

GOTOFLAG  •  128;  (*  flags  a  gotoxg  s) 

PAGEFLAG  •  129;  (*  flags  text  continues  on  another  page  *) 

UNUSEDFLAG  •  130;  (*  flags  unused  bgte  •) 

ENOITEH  -  131;  (*  flags  end  of  text  for  a  question  *) 

(s  these  files  Must  reside  on  disk  !  *) 

DATANAOE  -  'CATDATA: I TEMPOOL.DATA’ :  (*  question  data  *) 

TEXTNAME  -  ’QTEXTs 1 TEHTEXT. DATA' ;  Cm  question  text  *) 
INDEXNAftE  -  'CATDATA: TESTINDEX. DATA’;  (*  test  directorg  *) 

(*  output  file  for  listing  test  questions  *) 

OEFAULTFILE  -  'CATDATA; TEST. TEXT* ; 

(*  slots  available  in  directorg  #) 
flAXSUBTESTS  -  20; 

(si  aaxi mum  question  pool  per  test  *) 

HAXlTEnPOOL  -  300; 

(a  MaxiMuM  ft  of  saMple  questions  atloued  «) 
flAXSAMPLES  -  5; 

(«  printer  file  naee  *) 

UNITNUMPRINTER  -  'PRINTER; '; 

VERSION  -  '  (1.031 '; 

(*  flag  for  coapr eased  graphics  #) 

COMPRESSED  -  1.0; 


TYPE  DIROATA  -  PACKED  RECORO  <*  directorg  for  tests  *) 

UNUSED  i  BOOLEAN;  («  tells  if  record  occupied  •) 

TESTNAHE  :  STRING;  (s  naae  of  subtest  •) 

(e  subtest  directorg  of  question  id  codes  Ml 
1TETC00E  «  PACKED  ARRAY 

(0..flAXITEnPOOU 
OF  INTEGER; 

END: 

(si  tgpes  of  aneuers  to  questions  *1 
I TEMRESPONSES  -  (CHARVALUE,  INTYALUE.SEYENOfl) ; 

I TEMOATA  -  PACKED  RECORO  (s  question  ptrs/data  «) 

(*  flag  this  as  graphics  itea  *) 

GRAPHICS  ;  BOOLEAN; 

(e  bounds  for  response  range  *) 

LOUANSUER, 

HIGHANSUER  :  CHAR; 

(*  block  ft  where  question  text  starts  *) 
ITEHBLOCK. 

(s  bgta  ptr  where  question  text  starts  *) 

ITEMPTR, 

(*  ft  of  answers  for  multiple  question  screens  *) 
ANSWERCOUNT  :  INTEGER; 

Is  information  parameters  s) 

A,B,C, 

(«  current  I g  unused  s) 

PROPCORRECT, 


>  .  <  .  .  ,S 
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P0INTB1SERI AL, 
YOPT, 

XOPT, 

ountiYi. 

oumY2. 

DUTT1Y3  :  REAL; 


(a  answer  to  question  *) 

CASE  ATYPE  :  I TEflRESPONSES  OF 
CHARVALUE  :  (ANSUER  :  CHAR): 

1NTVALUE  :  (INTANSUER  :  INTEGER): 
SEVENCHR  :  (Of) ANSUER  :  PACKED  ARRAY  [1 


END; 


CHAR): 


7)  OF 


SETOFCHAR  -  SET  OF  CHAR; 


VAR  LETTERS.OIGITS, CHARACTERS  :  SET  OF  CHAR; 

OUTPUT. COOTIANO  :  CHAR; 

(*  screen  character  buffer,  this  is  the  page  buffer  for  iteM  editor  *) 
SCREEN  :  PACKED  ARRAY 

10. . XSCREEN , 0. . YSCREEN)  OF  CHAR; 

(*  block  of  ascii,  control  codes  «) 

TRIX  :  RECORD  CASE  INTEGER  OF 

1  :  (ITEOBUF  :  ARRAY  10. . 1023)  OF  INTEGER): 

2  :  (ASC1IBUF  :  PACKED  ARRAY  10. .MAXI TEnBUF)  OF  0..139); 

END; 

(a  string  character  buffer  e) 

LINEBUF  :  PACKED  ARRAY  [0.  .HAXLINEBUF1  OF  CHAR; 

RIGHTMAX.  («  boundary  for  right  Margin  of  question  text  a) 

PAGENUM,  (e  current  page  of  question  text  *) 

CURRINOEXRECNlin,  («  record  0  of  file  directory  e) 

CUPRBLOCK,  (e  block  0  of  start  of  itea  text  ») 

CURRFREEPTR  ;  INTEGER;  (*  ptr  to  free  loc  in  block  *) 

CGRAF,  (e  true  ••>  picture  is  coapressed  graphics  e) 

ESCPROC.  (*  true  •■>  leave  current  procedure  e) 

SCR 80.  («  true  -->  80  cotuans  screen  a) 

VN0RT1AL  :  BOOLEAN;  -  (a  true  -■>>  nor  sal  video  a) 

A VALUE,  (a  itea  paraaeters  a) 

BVALUE, 

CVALUE  :  REAL; 

(a  test  directory  a) 

DIRECTORY  :  DIRDATA; 

FILEDIRECTORY  :  FILE  OF  DIRDATA; 

(a  data  records  a) 

ITEHINFO  :  ITEHDATA; 

FILEITEMINFO  :  FILE  OF  ITETDATA; 

(a  file  of  ascii  codes,  control  0’s  a) 

1  TEftTEXT  :  FILE; 

(a  output  file  for  test  listings  a) 

OEST  :  TEXT; 

(a  directory  record  inforeation  a) 

OIRINFO  :  ARRAY  C0. .MAXSUBTESTS]  OF  RECORO 

la  record  occupied  a) 

NOTUSED  s  BOOLEAN; 

(a  subtest  naae  a) 

TNAHE  ;  STRING; 

(a  0  i teas  in  subtsst  a) 
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1 TEMCOUNT  »  INTEGER: 
END; 


PROCEDURE  PAGE (DUMMY  :  CHAR);  FORWARD; 

PROCEDURE  TOPOFFORfl;  FORWARD; 

PROCEDURE  SQUAWK;  FORWARD; 

PROCEDURE  BLANKLINESISTART, COUNT, ENOCURSOR  t  INTEGER);  FORWARD; 
FICTION  GETCHARIOKSET  :  SETOFCHAR; 

FLUSHQUEUE, ECHO, BEEP  :  BOOLEAN)  :  CHAR;  FORWARD; 
PROCEDURE  STALL;  FORWARD; 

PROCEDURE  F I LLBUF (CHARCNT  :  INTEGER; 

OKSET  :  SETOFCHAR;  ERASE  :  BOOLEAN) ;  FORWARO; 
PROCEDURE  GETNEWFILE;  FORWARO; 

PROCEDURE  SCRCONTROL (I ,  J,K  :  INTEGER):  FORWARO; 


PROCEDURE  TEXT40MOOE;  FORWARD; 

PROCEDURE  TEXT80MOOE;  FORWARO; 

PROCEDURE  INVERSE;  FORWARD; 

PROCEDURE  NORflAL;  FORWARO; 

PROCEDURE  WR I TE I TEMBLOCK  OR  I CHBLOCK  :  INTEGER) ;  FORWARO; 
PROCEDURE  REAOI TEMBLOCK IWHI CHBLOCK  i  INTEGER);  FORWARD: 
FUNCTION  SLOTSEARCH (CODE  :  INTEGER)  ;  INTEGER;  FORWARO: 
PROCEDURE  UPOATEDI RECTORY (RECNUfl  :  INTEGER):  FORWARD; 

PROCEDURE  UPDATE  I TEMF I LE (RECNUM  :  INTEGER);  FORWARD; 

PROCEDURE  SAVEPTRS;  FORWARO; 

PROCEDURE  LOAOPTRS;  FORWARD; 

FUNCTION  HASH (KEY  :  INTEGER)  :  INTEGER;  FORWARD; 


PROCEDURE  OECOOEPR I  NT  (BLOCKNUT1 ,  BLOCKP  TR  :  INTEGER);  FORWARD; 
PROCEDURE  GETPARAM (PTYPE  :  CHAR);  FORWARO; 

FUNCTION  I TEMFREESLOT  :  INTEGER;  FORWARD; 

PROCEDURE  SETGFLAG;  FORWARD; 

PROCEDURE  SETSCREEN;  FORWARD; 

PROCEDURE  GWRITESTRIGSTR  t  STRING);  FORWARD; 

PROCEDURE  GGOTOXYIX.Y  :  INTEGER);  FORWARD; 

PROCEDURE  INITFORGRAFIX;  FORWARO; 

PROCEDURE  GURITECHRIGDfi  t  CHAR);  FORWARD: 

PROCEDURE  GURITEINT (GINT  :  INTEGER);  FORWARD; 

PROCEDURE  GWRITELN;  FORWARO; 

PROCEDURE  GSTALL;  FORWARD: 

PROCEDURE  GBLAMCLINESCSTARTBLANK. 

BLANKTHIST1ANY, 

LEAVECURSOR  ;  INTEGER);  FORWARD; 

PROCEDURE  GOECOOEPR1 NT (SU0TESTNUH, I TEMCOOE  ;  INTEGER);  FORWARO; 
PROCEDURE  CHANGE TESTNAME;  FORWARO; 


(*•1  /TFILES/THGR.DIR/T.LIST. TEXT  *) 
(*tl  /TFILES/TMGR.DIR/T. SEARCH. TEXT  «) 
(*tl  /TFILES/TMGR.OIR/T. 1SUBRT. TEXT  *) 
U$J  /TFILES/TMGR.DIR/T. 1NSTR.TEXT  «) 
(*SI  /TFILES/TMGR.OIR/T. SAMPLES. TEXT  «) 
t«tl  /TFILES/TMGR.D1R/T.GET1.TEXT  a) 
(*fl  /TFILES/TMGR.DIR/T. GET2. TEXT  «) 
<*tl  /TFILES/TriGR.DIR/T. FLOPPY. TEXT  *> 
(*•1  /TFILES/TMGR.DIR/T. NEW. TEXT  *) 

(ail  /TFILES/TMGR.DIR/T. DELETE. TEXT  *) 
<*«I  /TFILES/TMGR.DIR/T.SUBRT. TEXT  *) 
<*S1  /TFILES/TMGR.OIR/T. 1UTL. TEXT  *) 
(*«I  /TFILES/THGR.DIR/T. ID. TEXT  *) 


(*  Mate  testa  to  output  *) 

(*  searches  for  keywords  in  iteMs  *) 

(«  uti I i ties  *) 

(•  set  up  subtest  instructions  «) 

(«  subtest  saaple  set  up  *) 

(«  loads  test,  Manipulate  questions  e) 
(*  loads  test.  Manipulate  questions  e) 
(e  transfer  to  floppy  routine  ») 

(*  new  test/questions  *) 

(e  delete  test  e) 

(*  teat  Manager  utilities  *) 

(e  utility  procedures  e) 

(e  io  routines  *) 


<*  Main  prograa  *) 

BEGIN 

(*  initialize  character  sets  *) 

DIGITS  t*0* . .  *9’) » 

LETTERS  s-  V  Af . .  *Z’ .  ’ a’ . .  ’  z'l ; 

CHARACTERS  i-  ICHRI32) .  .CHRU26)  J ; 

(*  initialize  string  buffer  to  all  blanks  *) 
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FILLCHAR(LINEBUF [0] .MAXLINEBUF, ’  ’>; 

(*  read  all  the  eubteets’  directory  information  into  a  record  savee  direc-  *) 
{*  tory  information  in  main  memory  eo  ue  don't  have  to  Keep  going  to  dieK  m) 
(«  to  find  out  uhich  eubtesta  are  in  the  database.  m) 

(•file:  T.SUBRT. TEXT  *) 

GETD1R1NF0; 

IN1TF0RGRAFIX; 

(*  loop  until  want  to  leave  program  *) 

REPEAT 

(•  set  default  screen  conditions  *) 

SCR 80  FALSE: 

V NORMAL  FALSE: 

CGRAF  FALSE; 

ESCPROC  FALSE; 

(•  set  right  margin  for  question  text  editor  •) 

RIGHTMAX  38; 

(*  display  command  menu  •) 

(«  file  «  T.SUBRT. TEXT  *) 

MENU; 

(*  get  option  selected  ») 

COMMAND  s-  GETCHARII'l'.. '8']. TRUE, FALSE. TRUE); 

CASE  COMMAND  OF 

(*  leave  program  •) 

•1*  :  ; 

(•  load  subtest  directory  and  present  further  options  for  subtest  *) 

(•  LOADTEST  is  in  file  :  T.LIST  •) 

(•  FETCHTEST  is  in  file  :  T. GET. TEXT  *) 

'2'  »  BEGIN 

LOADTEST (’Fetch  uhich  test?  :  ’); 

IF  NOT  ESCPROC  T)€N  FETCHTEST; 

END; 


(*  list  all  subtests  in  directory  and  hou  many  questions  in  each  *) 

(•  fi le  :  T.LIST. TEXT  •) 

'3*  ;  LISTTESTS(TRUE); 

(*  file  :  T.NEU. TEXT  *) 

■4’  :  NEUTEST; 

(*  change  the  subtest  name  or  screen  format  for  sub test  or  time  spec i -  •) 
(*  fi cat  ion  for  timed  subteste.  •) 

(*  file  «  T.1SUBRT.TEXT  •) 

'S’  «  CHANGETESTNATE; 

(*  write  the  subtest  to  a  floppy  disK  in  similar  but  not  the  same  file  •) 
(*  layout.  Same  record  layout,  however.  *) 

(•  file  :  T. FLOPPY. TEXT  •) 

•S’  «  TRANSFERTOSINCH; 

(*  remove  a  subtest  from  the  directory  *) 

(•  fils  «  T. DELETE. TEXT  *) 

*7'  ;  DELETETEST; 

’8’  t  SEARCHTEXT; 

END; 

UNTIL  COMMAND  -  '1'; 

(*  jump  to  cat  project  driver  •) 

SE TCHA I N ( ' CA TDA TA : CA TPRO JEC T * ) ; 

END.  (•  t-mgr  •) 
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I  rttr»<-TtTT) 

(*  *) 

(*  Textfile  t  TMGR. OIR/T. 1UTL. TEXT  Volume  :  TFILES  s) 

(*  Codefile  :  T.nGR.COOE  (’Include*  file)  Voluee  s  CATDATA  *) 

(*  •) 

(*  DEC.  1,  1982  NPROC  «) 

(*  clear  the  screen  *) 

PROCEDURE  PAGE; 

BEGIN 

(*  for  apple  2  «) 

WRITE (CHR  (12) >; 

(*  for  apple  3  *) 

WRI TE (CHR (28) ) ; 

GOTOXY (0,0) ; 

END;  («  page  *) 

I - - - ) 

(»  fore  feeds  the  printer  *) 

PROCEDURE  TOPOFFORfl; 

BEGIN 

REWRITE (DEST. UN I TNUMPR INTER) j 
WRITE (0EST,CHR(12) ) i 
CLOSE  (0EST.N0RT1AL) ; 


END;  («  top  of  fore  e) 

I . - . - . . . I 

(«***  rings  the  bell  ***«) 


PROCEDURE  SQUAUKt 
BEGIN 

WRITE (Ct*  (BELL))! 

END:  («  squauk  e) 

« . - . . . — . -I 

(***»  blank  out  lines  «***) 

(«  given  a  y  location  to  begin,  #  of  lines  to  erase,  uhich  line  *) 

(*  to  leave  cursor,  erases  only  40  column  width.  ») 

PROCEDURE  BLANKLINES; 

VAR  I  t  INTEGER! 

BEGIN 

GOTOXY (0. START)! 

FOR  I  s-  1  TO  (COUNT-1)  DO 
WRITELNC  ’  :  39) ! 

WRITEC  ’ «39)  i 
GOTOXY  (S.EtCCURSOR)! 


ENOs  (e  blank  lines  *) 

I - - - - - ) 


(e  read  an  acceptable  character  from  the  keyboard  «) 
(«  given  a  set  of  acceptable  characters  to  read.  *) 
(«  and  flage  if  you  want  computer  to  flush  the  e) 
(si  type  ahead  buffer,  beep  if  a  bad  key  is  pressed*) 
(*  or  echo  the  character  pressed.  *) 

FUNCTION  GETCHAR: 

VAR  flASK  t  PACKED  ARRAY  10.. 0]  OF  CHAR; 

BEGIN 

IF  FLUSHQUEUE  THEN  UNI TCLEAR(2) :  (*  flush  buffer  *) 
REPEAT 

UNI  TREAD (2, MASK , 1 ) : 

IF  BEEP  ANO  NOT  (HASK (01  IN  OKSET)  THEN  SQUAWK; 
UNTIL  f1ASK[0J  IN  OKSET; 

IF  ECHO  AND  (HASK  10)  IN  ECUR (32) . . CHR ( 1 26 )  1 )  THEN 
WR1  TE  (HASK  [01 ) ! 

GETCHAR  HASK  (0) ; 

ENOi  (*  getchar  *) 
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(«***  get  a  legal  filenaea  ***«) 

FUNCTION  NATE  OK  :  BOOLE AN s 
VAR  I  i  INTEGER; 

BEGIN 

IF  FILENAME  -  “ 

THEN  BEGIN  III 

FILENAME  DEFAULTFILE; 

GOTOXV (44,8) ; 

URITE (FILENAME); 

END  III 

ELSE  IF  FILENAME  til  -  CHR(esc)  THEN  EX  IT (PROGRAM); 

IF  (POST. TEXT’, FILENAME)  <>  (LENGTH (F I LENATE)  -  4))  OR 
(LENGTH (FILENAME)  <  6  ) 

THEN  FILENAME  s-  CONCAT (FILENAME.  \  TEXT1 ) ; 

(»«!-*) 

RESET (DEST. FILENAME); 

(«SI+«) 

IF  IORESULT  -  0 
THEN  BEGIN  (21 
URITELN; 

URITELN; 

URITECOestroy  old  *  .FILENAME,  *?  Press  *  *N’  *  or  "V  *); 

IF  GETCHAR(  l’y‘ ,  *n* , ‘Y‘ ,  *N‘] ,  TRUE,  TRUE,  TRUE)  IN  C’V’.'u’] 

THEN  BEGIN  (3) 

CLOSE (DEST, PURGE); 

REWRITE  (DEST.  FILENAME); 

NAME OK  ;.  TRUE; 

END  (3) 

ELSE  BEGIN  (41 

CLOSE (DEST, LOCK); 

NAME OK  FALSE; 

END;  (41 

END  (21 
ELSE  BEGIN  (5) 

(*$!-«) 

REURI TE (DEST. FILENAME) ; 

(etl+e) 

ERRNUM  IORESULT; 

IF  IORESULT  <>  0 
THEN  BEGIN  (61 
l»I  TELN; 

URITELN; 

UR  I  TELN  (‘Cannot  open  *  .FILENAME,  *  lo  error  #\ ERRNUM); 
NAME OK  FALSE; 

END  (61 

aSE  NAMEOK  i-  TRUE; 

END;  (SI 
END;  («  naseok  ») 


BEGIN  (*  getneufile  *) 

REPEAT 

PAGE (OUTPUT); 

URITECEnter  output  file  naee,  then  press  <RET>  :  ’); 
READLN (FILENAME) ; 

UNTIL  NAMEOK; 


(a  send  control  characters  to  screen  *) 

PROCEDURE  SCRCONTROL;  I  PASCAL  interface  to  Screen  Control) 

VAR  Nt  INTEGER;  (  APPLE  III  Standard  Device  Drivers) 

GJtRRAY:  PACKED  ARRAY (0..  3)  OF  0..2SS;  ( .  Pages  34  to  46.) 

BEGIN 

G  _ARRAY  (01 ; «  I;  G_ARRAY(U;-J;  G_ARRAY  (2)  i -K; 

UNI TURI TE (1,G_ARRAY,3, ,12) ; 

END;  (e  scrcontrol  *) 


(*  switch  to  40  coluen  screen  *) 
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PROCEDURE  TEX T4 80006: 

BEGIN 

SCRCONTROL (16,0,28) ;  (Text  aode  408U,  followed  by  c I earecreen. ) 

ENO;  («  text48aode  «) 

I . - . - - - - - - 

(*  switch  to  88  coluen  screen  «) 

PROCEDURE  TEXT80OOOE: 

BEGIN 

SCRCONTROL (84,8,8) ;  (Restore  Viewport  to  its  original  condition.) 
SCRCONTROL (16,2,28) ;  (Text  Mode  88,  followed  by  c I earscreen. I 
ENO:  (*  text88eode  *) 

( . . - - - - - 

(*  turn  on  reverse  video  *) 

(*  black  on  whi te  *) 

PROCEDURE  INVERSE: 

BEGIN 

SCRCONTROL (18,8,8); 

END;  (*  inverse  *) 

I . - . . . - - - - - 

(*  switch  back  to  noreal  screen  *) 

(«  white  on  black  «) 

PROCEDURE  NORMAL; 

BEGIN 

SCRCONTROL (17,8,8); 

ENO; 
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I  ^tTt***********  e»ScesoS«ce<BS* 

(*  *) 

(*  Textfile  :  TfIGR.OIR/T.SUBRT.  TEXT  Voluee  :  TFILES  *) 

(«  Codefile  :  T.fIGR.COOE  ('Include*  file)  Voluee  :  CATOATA  *) 

(*  *) 

(asrM«e***ssw**,«'«»>*,««»»*'»»»»»s»»*'aM»s«»s'«»M»s» «« seessrsirs  *«*»■»»»«»»»$  «*»r»s) 
(e  File  last  eodified  t  Feb  23,1983  NPRDC  *) 

(sesssseeesssssssseesseeeasssssMsssssessssesesxcssssesnrtseeseeesusseessTiasttnsses) 

(«  change  the  naae  of  a  subtest  or  change  screen  foraat  or  change  ties  cutoff  *) 
(»  for  timed  subtests.  «) 

PROCEDURE  CHANGE TESTNATE; 

VAR  TESTSTR  :  STRINGs 


(*  give  instructions  *) 

PROCEDURE  GJNSTRUCTj 
BEGIN 

PAGE (OUTPUT); 

GOTOXY(18.0); 

WRITE  (’SUBTEST  NAME  PORTIA  T  INSTRUCTIONS'); 

GOTOXY (8,2) ; 

URITELNf 

'The  first  character  of  the  subtest  name  specifies  uhich  screen  foraat  the  ’); 
URITELNf 

'question  text  will  appear  in.  The  screen  codes  ars  listed  below.  The  *); 
UR 1 TELN ( 

'second  character  of  the  subtest  naae  specifies  the  total  permitted  time  ’); 

UR 1 TELN ( 

'in  minutes  for  timed  subtests.  The  second  and  third  characters  specify’); 
URITELNf 

'the  additional  seconds  permitted  for  the  timed  tests.  Type  in  the  subtest'); 
URITELNf 

'name  then  press  <RET>.*); 

URITELN; 

URITELNf”  ’  aa  first  char  •  inverse  +  80  columns’); 

URITELN(’”m”  as  first  char  -  normal  ♦  80  columns’); 

URITELNC ' '?”  as  first  char  -  normal  ♦  40  columns'); 

URITELN; 

URITELNf 

'If  first  character  of  teat  name  is  not  any  of  the  above  control  characters,’); 

10)1  TELN (’  then  the  text  format  will  default  to  inverse  ♦  40  columns. ’); 

URITELN; 

URITELN; 

UR I TELN ('Change  * .DIRECTORY,  TESTNATE, '  to  what?’); 

URITELN; 

URITEC - >  '); 

END;  («  ginstruct  *) 


BEGIN  («  change test name  *) 

(*  get  the  subtest  you  want  to  change  a) 

LOAOTEST (’ Change  name  of  uhich  subtest?  t  ’); 

IF  ESCPROC  THEN  EXI T (CHANGETESTNATE) ; 

(m  give  instructions  e) 

GINSTRUCT; 

(e  get  the  neu  test  name  *) 

REAOLN (TESTSTR); 

IF  TESTSTR  -  ”  THEN  TESTSTR  DIRECTORY.  TESTNATE; 
UR1 TELN; 

lf)I  TELN  (DIRECTORY.  TESTNATE,’  changed  to  ',  TESTSTR); 

(e  save  the  new  name  in  the  files  *) 

DIRECTORY. TESTNATE  i-  TESTSTR; 

OIRINFO ICURRINDEXRECNUM) . TNATE  TESTSTR; 

UPDATED I RECTORY (CURR1NDEXRECNUH) ; 

W)  I TELN; 
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STALL; 

END:  («  change  test  naee  «) 

- - - - » 


(«***  show  nain  Menu  coaaand  level  selections  ***«) 

PROCEDURE  MENU: 

VAR  X.Y  :  INTEGER: 

BEGIN 

PAGE (OUTPUT): 

GOTOXY (20, 0) : 

URI  TEC  TEST  MANAGER  MENU  ’.VERSION); 

GOTOXY (0,4); 

URITECSelect  one  of  the  follouing  procedures  by  entering  its  nuaber.*); 

X  16; 

Y  8; 

GOTOXY (X.Y); 

URITEC1.  QUIT’); 

GOTOXY (X.Y+l); 

URITEC2.  FETCH  A  SUBTEST’): 

GOTOXY (X.Y+2); 

WRITE (’3.  LIST  DIRECTORY’): 

GOTOXY (X.Y+3); 

URI  TEC 4.  CREATE  NEU  SUBTEST’ ); 

GOTOXY (X.Y+4): 

URITECS.  CHANGE  SUBTEST  NAME/FORMAT’); 

GOTOXY (X.Y+5); 

URITEC6.  TRANSFER  SUBTEST  TO  FLOPPY’); 

GOTOXY (X.Y+6); 

URI  TEC  7.  DELETE  SUBTEST’): 

GOTOXY (X.Y+7); 

URI  TEC  8.  SEARCH  TEXT  FOR  KEYUOROS’): 

GOTOXY (X.Y+10); 

URITE (’Enter  Choice  tt  :  '); 

END:  («  aenu  •) 

I . . ) 

(*  writes  the  directory  inforaation  to  record  ») 

(«  puts  necessary  file  info  in  aain  aeaory  *) 

PROCEDURE  GETOIRINFO; 

VAR  I ,K, I COUNT  :  INTEGER; 

BEGIN 


(*  initialize  the  directory  inforaation  *) 
FOR  I  0  TO  MAXSUBTESTS  DO 
OIRINFO El I .NOTUSED  TRUE; 


(«  get  the  directory  inforaation  «) 

I  0; 

RESET (FI LEO I RECTORY. INOEXNATE) ; 

REPEAT 

SEEK (FI LEO I RECTORY, I ) ; 

GET (FILEOIRECTORY) ; 

IF  NOT  (FILEOIRECTORY". UNUSED)  T)€N 
BEGIN  (II 

DIRECTORY  FILEOIRECTORY"; 

DIRINFOII1. NOTUSED  FALSE; 

OIRINFO  [IJ.TNAME  DIRECTORY. TESTNAME; 

I  COUNT  0; 

FOR  K  (flAXSAfW-ES+l )  TO  MAXI  TEMPOOL  DO 
IF  DIRECTORY.  I TEMCOOEK]  >  0 
THEN 

ICOUNT  :-  ICOUNT  +  1; 

OIRINFO  ID.  I TEMCOUNT  ICOUNT; 

END;  111 

I  I  +  1;  1 

UNTIL  I  >  MAXSUBTESTS; 

CLOSE (FILEOIRECTORY, NORMAL) ; 

END;  (*  getdirinfo  *)  1 
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(«  returns  record  U  of  question  data  fils  no  collisions.  This  is  a  sapping  *) 
(s  function  uhich  takes  the  location  a  question  code  exists  in  a  subteat  «) 

(*  directory,  the  saxisua  questions  per  subtest  and  the  subtest  record  nusber  «) 
<*  and  naps  it  to  a  location  in  a  fils  with  data  for  that  question  s) 

FUNCTION  HASH; 

BEGIN 
HASH  i- 

(CURR I NOEXRECNUM  s  HAXI TEnPOOL) 

♦  KEY  +  CURR I NOEXRECNUM; 

END;  (s  hash  s) 

( - - - - - ) 

(*  reads  the  i ten  text  file  6  displays  iten  text  *) 

PROCEDURE  DECOOEPRINT; 

CONST  HAXBUFS1ZE  -  2047; 

VAR  X, 

V. 

B. 

CURRPTR. 

CURRBLK, 

CHARCOOE. 

CHARCNT  :  INTEGER; 

BAD 10  :  BOOLEAN; 

TEXTSTR  ;  STRING  (80); 


(— . . . ) 

(«  return  the  next  code  in  ascii  file  s) 

FUNCTION  BUFCOOE  :  INTEGER; 

BEGIN 

BUFCOOE  TRIX.ASCI IBUF tCURRPTRl j 
CURRPTR  CURRPTR  ♦  1; 

IF  CURRPTR  >  2847  TVCN 

(«  end  of  block/get  next  block  and  reset  byte  ptr  e) 

BEGIN  (1) 

CURRBLK  «-  CURRBLK  ♦  4; 

READ I TEHBLOCK (CURRBLK) ; 

CURRPTR  «-  0; 

END;  (1) 

END;  (*  bufcode  e) 

I . ) 

BEGIN  (e  decode  print  e) 

TEXTSTR  «- 

* 

SETSCREEN;  (*  clear  the  screen  e) 

READ I TEMBLOCK (BLOCKNUM) ; 

(e  set  block/byte  ptrs  e) 

CURRPTR  l-  BLOCKPTR; 

CURRBLK  BLOCKNUM; 

FILLCHARILINEBUF 181 ,80, ’  ’); 

(«  read  bytes  fron  the  buffer  e) 

REPEAT 

(e  get  char  fron  block  buffer  a) 

CHARCOOE  i •  bufcode; 

CASE  CHARCOOE  OF 

GOTOFLAG  :  BEGIN  (11  (*  nove  cursor  *) 

(*  next  tuo  bytes  aftsr  flag  are  x,y  coord  *) 

X  BUFCOOE; 

Y  BUFCOOE; 

CHARCNT  BUFCOOE; 

IF  (CURRPTR  +  CHARCNT  -  1)  >  NAXBUFSIZE  THEN 
BEGIN  (21 

B  (MAXBUFSIZE  ♦  1)  -  CURRPTR; 

MOVELEFT (TRIX.ASCI IBUF (CURRPTRI .LINEBUF  IX), B); 
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X  X  +  B; 

B  CHARCNT  -  B: 

CURRBLK  CURf?BLX:  +  4; 

READ  I  TEflBLOCK  (CURRBLK)  j 
CURRPTR  0; 

MOVELEF  T ( TR 1 X . ASC 1 1 BUF [CURRPTR] , L I NEBUF [X] . B) : 
CURRPTR  CURRPTR  +  B: 

END  (2) 

ELSE 

BEGIN  [31 

ttOVELEF T (TR I X . ASC 1 1 BUF [CURRPTR] , L I NEBUF [X] , CHARCNT ) ; 
CURRPTR  CURRPTR  +  CHARCNT; 

IF  CURRPTR  >  HAXBUFSIZE  THEN 
BEGIN  [41 

CURRBLK  CURRBLK  +  4; 

CURRPTR  0; 

READ  I TEfBLOCK (CURRBLX 1 ; 

END;  14) 

END;  13) 

GOTOXY (0, Y) ; 

URITE (LI NEBUF), 

F I LLCHAR (L I NEBUF [0] ,80, *  *); 

END;  (1) 

PAGEFLAG  :  BEGIN  (S)  (*  uait  for  keystroke  to  see  rest  of  text  *) 

GOTOXY (1.21); 

STALL; 

PAGE (OUTPUT) ; 

ENO;  15) 

END I  TED  :  : 

ENO; 

UNTIL  CHARCOOE  -  END I  TED;  (*  until  end  flag  hit  e) 

END;  (*  decodeprint  *) 


1 . . ) 

(«  gets  the  a.b,  and  c  parameters  for  items  *) 

PROCEDURE  GETPARAM; 

VAR  VALUE  :  REAL; 

BEGIN 

PAGE (OUTPUT); 

URITEI’Enter  PTYPE,'  parameter  value,  then  press  <RET>  :  ’); 

(*«!-*) 

READLN (VALUE); 

(*<U«) 

CASE  PTYPE  OF 

•A’  :  AVALUE  j-  VALUE; 

•B*  :  BVALUE  VALUE; 

•C*  :  CVALUE  VALUE; 

END;  («  cases  «) 

END;  («  get  param  *) 

I - - - - - ) 

(*  returns  ptr  to  1st  free  slot  in  eubtest  directory  to  put  item  *) 

(«  code.  Returns  nil  i f  no  room  .  *) 

FUNCTION  ITEDFREESLOT; 

VAR  SLOT  :  INTEGER; 

FOUND  :  BOOLEAN; 

BEGIN 

SLOT  MAXSAHPLES  ♦  1; 

FOUND  FALSE; 

REPEAT 

IF  DIRECTORY. I TEHCDDE  (SLOT)  <  0 
THEN 

FOUND  TRUE 

ELSE 

SLOT  SLOT  ♦  1; 

UNTIL  (SLOT  >  MAX  I TEHPOOL )  OR  (FOUND): 

IF  FOUND 
THEN 
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ITEMFREESLOT  SLOT 

ELSE 

ITEflFREESLOT  NILi 

END:  (*  itesfreeslot  *) 

I - - - 


(*  set  the  graphics  flag  *) 

PROCEDURE  SETGFLAG; 

VAR  SELECT  :  CHAR: 

BEGIN 

PAGE (OUTPUT) ; 

GOTOXV(20.0); 

URITECSET  GRAPHICS  FLAG  MENU'); 

GOTOXY (0,4) ; 

URITECSelect  one  of  the  follouing  options  by  entering  its  nueber.’); 
GOTOXY <16. 8): 

URITECl.  QUIT'): 

GOTOXY (16, 9): 

URITEC2.  GRAPHICS  FLAG  OFF  (no  graphic  text)*); 

GOTOXY  (16. 10); 

URITE(’3.  NORMAL  GRAPHICS  FLAG  ON*); 

G0T0XY(16.11): 

URITEC4.  COMPRESSED  GRAPHICS  FLAG  ON*); 

REPEAT 

GOTOXY (0.6); 

URITE(*You  currently  have  option  *): 

IF  NOT  I TEMINFO. GRAPHICS  THEN 
UR1TEC2  (no  graphic  text)  ’) 

ELSE 

IF  I TEMINFO. DUMMY1  -  COMPRESSED  THEN 
URITEC4  (coepressed  graphic  text)*) 

ELSE 

URITEC3  (noreal  graphic  text)  '): 

INVERSE; 

IF  I TEMINFO. GRAPHICS  THEN 
BEGIN  (1) 

IF  I TEMINFO. OUMMY1  -  COMPRESSED  THEN 
BEGIN 

GOTOXY (16. 11): 

UR  I  TEC  4.  COMPRESSED  GRAPHICS  FLAG  ON’ >; 

END 

ELSE 

BEGIN 

GOTOXY (16. 10); 

URITEC3.  NORMAL  GRAPHICS  FLAG  ON') ; 

END; 

EM)  U> 

ELSE 

BEGIN  (2) 

G0T0XYU6.9): 

URITEC2.  GRAPHICS  FLAG  OFF  (no  graphic  text)’); 

EM);  (2) 

NORMAL: 

GOTOXY (31. 14); 
l*!TEC  '); 

GOTOXY (16, 14) ; 

URITECEnter  Choice  M  :  ’): 

SELECT  GETCHARt  Cl’ . .  *4’1 .  TRUE. TRUE.  TRUE) ; 

IF  I  TEH  IfFO.  GRAPH  ICS  THEN 
BEGIN  (3) 

IF  ITEMIfFO.DUMMYl  -  COMPRESSED  T)€N 
BEGIN 

GOTOXY(16,11) ; 

URITEC4.  COMPRESSED  GRAPHICS  FLAG  ON’); 

END 

ELSE 

BEGIN 

GOTOXY (16, 10): 

URITEC3.  NORMAL  GRAPHICS  FLAG  ON’); 

END; 

END  (3) 

ELSE 
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BEGIN  (4) 

GOTOXY (16,9) j 

UR 1 TE ( * 2-  GRAPHICS  FLAG  OFF  (no  graphic  text) ’ ) * 
END;  <41 
CASE  SELECT  OF 

•  i*  .  . 

•2*  i  ITEHINFO. GRAPH ICS  FALSE; 

'3'  :  BEGIN 

ITEHINFO. GRAPHICS  «-  TRUE; 

ITEH1NFO.OUHHY1  0.0; 

END; 

’4’  :  BEGIN 

ITEHINFO. GRAPH ICS  TRUE; 

I  TEH  INFO.  OUT  Y1  COMPRESSED; 

END; 

END;  (*  cases  s) 

UNTIL  SELECT  -  T; 

END:  <«  setgflag  «) 


(*  this  procedure  changes  the  screen  based  on  global  vara  *) 
PROCEDURE  SETSCREEN; 

BEGIN 

(*  set  the  coluan  length  •) 

IF  SCR80  THEN 
BEGIN  (1) 

TEXT80MOOE; 

RIGHTHAX  78; 

END  (II 
ELSE 

BEGIN  121 
TEXT40T1OOE; 

RIGHTHAX  : -  38; 

END;  (21 

(*  set  the  video  display  a) 

IF  VNORHAL 
TfEN 

NORMAL 

ELSE 

INVERSE; 

PAGE (OUTPUT) ; 

END:  (a  eetscreen  •) 


(e  does  a  write  to  graphics  screen  for  string  values  e) 
PROCEDURE  GUR1TESTR; 

BEGIN 

UNI TURI TE (3.GSTR  III .LENGTH (GSTR) .0. 12) ; 

END:  («  guritestr  «) 


(«  do  a  gotoxy  to  the  graphics  screen,  treats  graphics  screen  as  if  it  «) 
(*  had  textaode  coordinates  for  80  coluan  by  24  roue.  «) 

PROCEDURE  GGOTOXY; 

VAR  XPOS, 

YPOS  :  INTEGER; 

BEGIN 

XPOS  X  *  7; 

YPOS  191  -  (Y  •  8); 

HO VETO (XPOS. YPOS): 

END;  («  ggotoxy  «) 


(a  set  up  the  grafix  Mode  *) 
PROCEDURE  INI TFORGRAFIX; 
BEGIN 


■<r. 
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INITGRAFIX; 

GRAF I XnOOE (BU560, 1 ) j 
VIEWPORT (0.5S9, 0,191) j 
FILLCOLOR(UHITE); 

PENCOLOR (BLACK) ; 

FILLPORT; 

END;  (*  ini tforgraf i x  *) 


(*  does  a  urite  to  graphics  screen  for  char  values  *) 
PROCEDURE  GURITECHR; 

VAR  C  :  STRING; 

BEGIN 

C  •  ’s 

C 111  s-  GO«; 

UN1TURITE(3.CI1). 1,0,12); 

END;  («  guritechr  *) 


(e  does  a  urite  to  graphics  screen  for  integer  values  «) 
PROCEDURE  GURITEINT; 

VAR  X.Z  :  INTEGER; 

D1GI TSTR.STR  :  STRING; 

NEGATIVE  :  BOOLEAN; 

C  :  CHAR; 

BEGIN 

fCGATIVE  FALSE; 

Z  GINT; 

IF  GINT  <  0  THEN 
BEGIN 

NEGATIVE  :«  TRUE; 

Z  -GINT; 

END; 

DIGITSTR 
STR  »- 
REPEAT 

X  s-  Z  ft»  10; 

C  OFIX+48) ; 

OIGITSTRtll  C; 

STR  CONCAT (DIGITSTR. STR); 

Z  Z  OIV  10, 

UNTIL  Z  <-  0; 

IF  NEGATIVE  THEN 
STR  CONCAT ,STR) ; 

UNITURITE(3.STR (11 .LENGTH (STR) ,0.12); 

END;  (*  guriteint  *) 


i— . — - 

V'.' 

(•do  a  unite  In  to 

PROCEDURE  GURI TELN; 

MH 

BEGIN 

nOVETO(0,VLOC-8); 
EM);  (*  guri  teln  *) 


(*  does  a  stall  to  the  graphics  screen  •) 

PROCEDURE  GST ALL; 

BEGIN 

GURITESTRCPress  <RET>  to  continue  ’); 

IF  GETCHAR((CHR(RET)1,  TRUE. FALSE,  TRUE)  -  CHR  (RET)  THEN; 
END;  (*  gstal I  *) 


(*  blanklines  on  the  graphics  screen,  treat  as  if  in  textmode  e) 
PROCEDURE  GBLANKLINES; 

VAP  TDP 

BOTTOn  :  INTEGER; 

BEGIN 
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TOP  »-  191  -  (STARTBLANK  *  8); 

BOTTOM  191  -  ( (STARTBLANK  ♦  BLANK TH1SMANY)  *  8)j 
VIEUPORT(8.S59, BOTTOM,  TOP); 

F1LLPORT ; 

VIEUPORT (8,559,0,191); 

GGOTOXY (8, LE AVECURSOR ) ; 

END;  (*  gblanklines  *) 

{ - - - , 


(*  display  question  to  graphics  screen  •) 
PROCEDURE  GOECODEPRINT; 

VAR  X.Z  s  INTEGER; 

VNAME.FNAriE.0lGITSTR.STR  s  STRING; 

C  :  CHAR; 


(*  reads  the  itee  text  file  and  displays  the  graphics  «) 

PROCEDURE  DECOOEGRAF; 

VAR  X. 

Y. 

XI. Yl, 

CURRPTR, 

CURRBLK, 

OOTCNT  s  INTEGER; 

(«  reads  a  block  froe  disk  into  the  itee  ascii  buffer  e) 

PROCEDURE  RE  AO  I TEMBLOCK  (ID  I CHBLOCK  ;  INTEGER); 

VAR  BLOCKSTRANSFERREO  ;  INTEGER; 

BAOIO  :  BOOLEAN; 

BEGIN 

BAD 10  FALSE; 

RESET ( I TEMTEXT . FNAME ) ; 

BLOCKSTRANSFERREO  BL0CKREA0UTEHTEXT.TRIX.1TEMBUF.4.UHICHBL0CK); 
BAOIO  ((BLOCKSTRANSFERREO  <  4)  OR  (IORESULT  <>  8)); 

CLOSE  (I  TEMTEXT.  LOCK); 

IF  BAOIO  THEN 
BEGIN 
URITELN; 

URITELN; 

URITEC  Block  \  IKICHBLOCX, *  write  error.’); 

URITELN; 

REAOLN; 

EXIT (PROGRAM); 

END; 

END;  («  read i teeb lock  e) 


(*  reads  the  itee  text  file  ft  displays  itee  text  e) 
PROCEDURE  OECOOEPRINT; 

VAR  X, 

Y. 

BYTECNT, 

CHARCOOE  :  INTEGER; 


(*  return  the  next  code  in  ascii  file  e) 

FUNCTION  BUFCOOE  :  INTEGER; 

BEGIN 

BUFCOOE  s-  TRIX. ASCI IBUF ICURRPTR1 ; 

CURRPTR  CURRPTR  ♦  1; 

IF  CURRPTR  >  2047  T)CN 

(*  end  of  block/get  next  block  and  reset  byte  ptr  *) 
BEGIN  (1) 

CURRBLK  CURRBLK  ♦  4; 

READI TEMBLOCK (CURRBLK) ; 

CURRPTR  8; 

END;  111 

END;  (*  bufcode  *) 
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BEGIN  («  decode  print  *) 

(*  read  butes  from  the  buffer  *) 

REPEAT 

(*  get  char  froa  block  buffer  *) 

CHARCOOE  : -  bufcode; 

CASE  CHARCOOE  OF 

GOTOFLAG  :  BEGIN  (1)  («  eove  cursor  *) 

(*  next  tuo  bytes  after  flag  are  x,y  coord  «) 
X  BUFCOOEj 
Y  j-  BUFCOOEj 
BYTECNT  BUFCOOEj 

GGOTOXY(X,Y)  j 
END;  (II 
ENOITEH  :  : 

END; 

IF  (CHARCOOE  >-  32)  AND  (CHARCOOE  <-  126)  THEN 
GUR I TECHR (CHR (CHARCOOE )) j 

UNTIL  CHARCOOE  -  ENDITEM;  (a  until  end  flag  hit  a) 

END;  (*  decodeprint  *) 


BEGIN  (e  decode  graf  e) 

READ!  TETBLOCK  (0)  j 

CURRBLK  i-  0j 
CURRPTR  j-  0; 


(«  decode  the  xlinea  e) 

REPEAT 

IF  CURRPTR  >  1021  TEEN 

(«  end  of  block/get  neu  block  *) 

BEGIN 

CURRBLK  j.  CURRBLK  ♦  4; 

READ  I  TETBLOCK  (CURRBLK ) ; 

CURRPTR  i.  0; 

END: 

X  j-  TRIX.ITETWJF (CURRPTR]  j 

IF  X  >-  0  TEEN 

BEGIN 

Y  TRIX.ITETWJF  (CURRPTR  ♦  llj 
MOVETO(X.Y)  j 

OOTCNT  TRIX.ITETWJF  (CURRPTR  +  21j 
LINEREL (DOTCNT.0) j 
CURRPTR  CURRPTR  ♦  3; 

END; 

UNTIL  X  <  0; 

CURRPTR  j.  CURRPTR  ♦  1; 

(*  decode  the  y lines  «) 

REPEAT 

IF  CURRPTR  >  1021  THEN 

(•  end  of  block/get  neu  block  *) 

BEGIN 

CURRBLK  j-  CURR8LK  ♦  4j 
READ  I  TETBLOCK  (CURRBLK )  j 
CURRPTR  j.  0; 

END: 

X  j-  TRIX.  I TETBUF (CURRPTR]  j 

IF  X  >-  0  THEN 

BEGIN 

Y  j-  TRIX. I TEtBUF [CURRPTR  +  II j 
TIOVETOIX.YJj 
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OOTCNT  TRIX. I TEHBUF [CURRPTR  «■  21: 
LINEREL(0.DOTCNT)| 

CURRPTR  CURRPTR  ♦  3; 

END; 

UNTIL  X  <  8; 

CURRPTR  CURRPTR  +  Is 


(*  decode  the  diagonals  s) 

REPEAT 

IF  CURRPTR  >  1828  THEN 

(*  end  of  block/get  new  block  «) 

BEGIN 

CURRBLK  CURRBLK  +  4; 
REAOITErBLOCX (CURRBLK) ; 

CURRPTR  8s 
END; 

X  TRIX. I TENBUF  (CURRPTR): 

IF  X  >-  8  THEN 
BEGIN 

Y  TRIX. I TEMBUF [CURRPTR  +  11  * 
XI  TRIX.  I TEflBUF  [CURRPTR  ♦  2); 
Y1  TRIX. ITEMBUF [CURRPTR  ♦  31 i 
nOVETO(X.Y); 

LINETO(Xl ,  Yl)  s 
CURRPTR  CURRPTR  ♦  4; 

END; 

UNTIL  X  <  0s 

CURRPTR  CURRPTR  ♦  1; 

(«  decode  the  dots  *) 

REPEAT 

IF  CURRPTR  >  1822  THEN 

(e  end  of  block/get  neu  block  *) 

BEGIN 

CURRBLK  CURRBLK  ♦  4; 

RE AD I TEHBLOCK (CURRBLK) ; 

CURRPTR  0; 

END; 

X  s.  TRIX. I TEHBUF tCURRPTR] ; 

IF  X  >-  0  TVER 
BEGIN 

Y  TRIX. ITENBUF [CURRPTR  ♦  1J; 
OOTAT (X,Y>; 

CURRPTR  s-  CURRPTR  ♦  2; 

END; 

UNTIL  X  <  0s 

CURRPTR  CURRPTR  ♦  1; 

CURRPTR  t-  CURRPTR  e  2s 

OECOOEPRINTi 

END;  (e  decodegraf  •) 


BEGIN 

FILLPORT; 

GRAFIXON; 

0IG1TSTR  i-  •  *; 

STR  «- 

Z  ITEHCOOEs 
REPEAT 

X  Z  nOO  10s 

C  CHR (X+48) s 
OIGITSTRtl)  s-  Cs 
STR  s-  CONCAT (OIGITSTR.STR) s 
Z  Z  01V  10s 

UNTIL  Z  <-  0s 

DlGITSTRtl)  CHR(SUBTESTNUm€S> ; 
C  s-  DlGITSTRtl): 


.*  V  V  \*  V  ‘ 
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(s 

IF  SAHPLEQUESTION  THEN 
BEGIN 

FNAME  CONCAT ( * /CATFOTO/ ' .DIGITSTR. ‘DIR/G* .DIGITSTR. *SQ‘ ,STR, ' .FOTO‘ ) : 

GLOAD (FNAME)  i 
END 
ELSE 

«) 

IF  ITEMINFO.OUHMY1  -  COMPRESSED  THEN 
BEGIN 

FNAME  CONCAT (‘/CATFOTO/’ .DIGITSTR, ’DIR/G’ .DIGITSTR.STR, ’ .DATA’ ) ; 
OECOOEGRAF: 

END 

ELSE 

BEGIN 

FNAME  CONCAT ('/CATFOTO/' .DIGITSTR, ’DIR/G* .DIGITSTR, *Q‘ ,STR, ’ .FOTO‘ ) t 
GLOAD (FNAME): 

END: 

END;  (s  gdecodeprint  s) 
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(SSSSSSaSSSSSSSSMSMSSStOSSSSSSSSSSSSSSSSSSMSSSSSSSSSSSSSSSSSSSSSSSeSSSSSSSI 

is  i 

(s  Text f i le  :  TMGR.D1R/T.1SUBRT. TEXT  Volume  :  TFILES  i 

Is  Codefile  :  T.MGR.COOE  (’Include’  file)  Volune  :  CATDATA  > 

is  < 

(SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBSSSSSSSSSSSaSSSSSSSSSSSSSSSSSSSSSSaSSSi 

is  File  last  modified  :  DAY  25,  1383  NPRDC  : 

{  f  t**x^rrt***»*t»  ***,*»******«*»,*»»****»»*«  ******** **************** S**********1 


(s  codes  the  screen  array  into  compact  block  buffer  and  urites  it  to  disk,  s) 
SEGMENT  PROCEDURE  CODESCREEN (ENDOF ITEM  :  BOOLEAN); 

VAR  X0, 

CHARCOOE , X , Y , I , 

BLOCK, 

BYTE. 

BYTECOUNT  :  INTEGER; 

DONE  :  BOOLEAN; 

( . ) 


(s  fill  buffer  with  ascii  8  codes,  write  to  disk  s) 
PROCEDURE  FILLI TEMBUFFER (BUFFCOOE  :  INTEGER); 

BEGIN 

TR I X .  ASC ! I BUF  (CUPRFREEPTR)  BUFFCOOE; 
CURRFREEPTR  CURRFREEPTR  +  1; 

IF  CURRFREEPTR  >-  2848  THEN 
BEGIN  (1) 

UR I TEI TEMBLOCK (CURRBLOCX)  ; 

CURRBLOCX  CURRBLOCX  ♦  4; 

CURRFREEPTR  8; 

EM3;  <11 

END;  (s  fill! tembuf for  s) 


( . I 

BEGIN  (s  codescreen  s) 

(s  read  in  current  block  uhere  text  Mill  start,  into  buffer  s) 

READ I TEMBLOCK (CURRBLOCX) ; 

(s  display  message  s) 

PAGE (OUTPUT) ; 

GOTOXY(l.l); 

URITE(’Enter ing  text’); 

(s  start  at  line  8  of  screen  buffer  s) 

Y  8; 

REPEAT 

(s  point  to  firet  character  on  line  s) 

X  :•  8; 

URITEC.’); 


(s  look  for  leading  blanks  s) 

DONE  FALSE; 

REPEAT 

IF  SCREEN  IX, Yl  -  CHR (SPACE) 

THEN 

X  X  +  1 

ELSE 

owe  TRUE; 

UNTIL  (X  >  XSCREEN)  OR  (OONE); 

(s  if  the  uhole  line  uas  not  blank  s) 

IF  X  <-  XSCREEN  THEN 
BEGIN  (1) 

(s  flag  a  gotoxy  uhere  first  non-blank  character  begins  s) 
FILLI TEMBUFFER (GOTOFLAG) ; 

FILLI TEMBUFFER (X); 

F I LLI TEMBUFFER (Y); 

BYTECOUNT  0; 
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(*  figure  out  hou  eany  bytes  on  this  line  «) 

Xa  s-  X| 

REPEAT 
I  »-  X0t 
DONE  i-  FALSEj 

REPEAT 

IF  SCREEN  II, YI  -  CHR (SPACE) 

THEN 

l  t-  I  +  1 

ELSE 

DONE  s-  TRUE: 

UNTIL  (I  >  XSCREEN)  OR  (DONE)j 

IF  I  <  XSCREEN  THEN 
BEGIN  12) 

BYTECOUNT  BYTECOUNT  ♦  1, 

X0  X0  +  1; 

DONE  i-  FALSE; 

END  (2) 

ELSE 

DONE  TRUE; 

UNTIL  (DONE)  OR  (X0  >  XSCREEN); 

FILLITENBUFFER (BYTECOUNT) ; 

REPEAT 

(*  look  for  trailing  blanks  *) 

I  i-  X; 

DONE  i-  FALSE; 

REPEAT 

IF  SCREEN II. YI  -  CHR (SPACE) 

THEN 

I  »■  1  ♦  1 

ELSE 

DONE  i-  TRUE; 

UNTIL  (I  >  XSCREEN)  OR  (DONE); 

(»  if  the  rest  of  the  line  was  not  all  blanks  *) 

IF  I  <  XSCREEN  THEN 
BEGIN  131 

(*  save  the  character  in  the  block  buffer  e) 

F ILLI TEOBUFFER (ORO (SCREEN (X . YI ) ) ; 

(*  set  pointer  to  next  character  *) 

X  X  ♦  1; 

(«  set  loop  condition  to  process  next  character  «) 

DONE  FALSE; 

END  (31 
ELSE 

(«  done  uith  this  line,  go  look  at  next  tine  in  screen  buffer  *) 
DONE  TRUE; 

(*  until  done  uith  line  or  last  character  in  line  processed  *) 

UNTIL  (DONE)  OR  (X  >  XSCREEN); 

END;  ID 

(0  point  to  next  line  «) 

Y  Y  ♦  1; 

(e  until  all  lines  looked  at  «) 

UNTIL  Y  »-  Y SCREEN; 

(«  if  editing  uas  cancelled  uith  a  control  -  c  s) 

IF  ENOOFITEH 
THEN 
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(*  flag  end  of  question  text  «) 

F 1 LL 1  TEriBUFFER  (ENO I TEM ) 

ELSE 

(*  editing  was  temporarily  cancelled  uith  a  control  -  p  *) 
(»  flag  that  text  continues  on  another  page.  *) 

FILLITEM8LFFER  (PAGEFLAG)  { 

(*  urite  the  last  block  of  ascii  to  file  *) 

UR1  TE1TEMBL0CK  (CURRBLOCK) ; 

END;  (»  codes creen  *) 


(*  fills  an  array  representing  the  crt  with  char  screen  location  may  be 
(*  specified  this  is  the  guts  of  the  question  text  editor  «) 

SEGMENT  PROCEDURE  F1LLSCREEN8UFFER (UPBOUNO.RIGHTBOUNO. 

L080UND , LEF TBOUNO  :  INTEGER: 

FLUSHBUF  :  BOOLEAN); 

VAR  SCREENCHAR  :  CHAR; 

CONTROLCHAR  :  SETGFCHAR; 

SCREENBVTES, 

CHARCOOE. 

X. 

Y. 

L. 

RIGHT  :  INTEGER; 

MORE  :  BOOLEAN; 

BEGIN 

(«  save  right  boundary  «) 

RIGHT  RIGHT SOUND; 

(*  initialize  indicator  for  additional  lines  *) 

MORE  t-  FALSE; 

(*  initialize  the  page  count  s) 

PAGENUn  1; 

(*  set  U  of  bytes  in  screen  character  buffer  *) 

SCREENBVTES  (XSCREEN  ♦  1)  *  (YSCREEN  +1); 


(s  if  uish  to  start  uith  a  blank  buffer,  neu  text  s) 

IF  FLUSHBUF  THEN 
BEGIN  (II 

(»  clear  screen  *) 

F I LLCHAR (SCREEN [0] , SCREENBYTES , *  ’); 

(*  eet  the  screen  parameters  *) 

SETSCREEN; 

END;  (II 

(»  put  cursor  in  upper  left  hand  corner  *) 

X  t-  LEFTBOUND: 

Y  i-  UPBOUNO; 

CONTROLCHAR  (CHR(UP)  .CHR(OOUN)  .CHR(LARROU)  .CHR(RARROU) , 
CHR (ETX) , CHR  (PAGEOUT) , CHR  (RET) . CHR  (ESC) ) ; 

CHARCOOE  !-  PAGEOUT; 

BLANKLINES (20, 4, 21); 

(*  fill  up  the  screen  character  buffer  until  done  *) 

REPEAT 

(*  page  number  and  instructions  s) 

IF  CHARCOOE  -  PAGEOUT  THEN 
BEGIN  12) 

IF  MORE  THEN  GOTOXY<0.2> 

ELSE  GOTOXY (0,20) ; 
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FOR  L  1  TO  RIGHT  DO 
URITE(’-’);URITELN (*-’); 

URITELNl*  Enter  text.  Use  arrous  to  Move  cursor.’) 5 
URITELNI*  <RET>:next  line,  <CTRL>-P; new  page. ’) ; 

UR1TEC  <CTRL>-C  to  quit  and  save.  *); 

ENOi  12) 

(«  Monitor  cursor  location  *) 

GOTOXY(X.Y); 

(*  get  a  character  froe  the  keyboard  *) 

SCREENCHAR  i-  GETCHAR (CHARACTERS  ♦  CONTROLCHAR. TRUE. TRUE. TRUE) ; 


(*  get  the  ascii  value  *) 

CHARCOOE  s-  ORO (SCREENCHAR); 

(*  check  for  cursor  control  characters  *) 

CASE  CHARCOOE  OF 

(*  cursor  Moved  up  but  not  beyond  set  boundaries  *) 

UP  !  IF  Y  <•  UPSOUNO 
THEN 

SOUAUC 

ELSE 

Y  s-  Y  -  Is 

(*  cursor  Moved  down  but  not  beyond  set  boundaries  •) 
DOUN  :  IF  Y  >-  LOBOUNO 
TXN 

SQUAUC 

ELSE 

IF  DORE  THEN 
BEGIN 

IF  Y  >»  1  (si  gives  2  lines  at  top  «) 
THEN  SQUAUC 
ELSE 

Y  Y  ♦  1 
ENO 
ELSE 

Y  1.  Y  +  1; 


(•  cursor  Moved  to  left  uith  auto  urap  around  e) 
LARROU  s  IF  X  «-  LEFTBOUNO  T)€N 
BEGIN  (3) 

IF  Y  <-  UPBOIIC 
THEN 

SQUAUC 

ELSE 

BEGIN  (4) 

X  RIGHT; 

Y  1-  Y  -  1; 

ENO;  (41 
ENO  (3) 

ELSE 

X  «-  X  -  1; 

(a  cursor  Moved  to  right  uith  auto  wraparound  ») 
RARROU  :  IF  X  >-  RIGHT  THEN 
BEGIN  (SI 

IF  (Y  >-  LOBOUNO)  OR  (rCRE  AND  (Y  >-l)) 
THEN 

SQUAUC 

ELSE 

BEGIN  (6) 

Y  Y  +  1; 

X  1-  LEFTBOUNO; 

ENO;  18) 
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(*  carriage  return  *)  (*  i  f  at  bottom  line  then  Make  rooa  *) 

RET  :  IF  (Y  >-  L080UN0)  OR  MORE 
THEN 
BEGIN 

IF  NOT  PCRECNUfl 
THEN 

SQUAUK 

ELSE 

IF  MORE  AND  (Y  >-  1)  (*  border  after  2  lines  *) 

THEN 

SQUAUK 

ELSE 

IF  NOT  MORE  THEN 
BEGIN 

MORE  TRUE: 

CHARCOOE  PAGEOUT; 

PAGE  (OUTPUT) } 

IF  NOT  FLUSH8UF  THEN 
8EGIN 

COTOX Y (LEF  TBOUNO , UPBOUND ) : 

FOR  X:-  LEFTBOUND  TO  RIGHT  00  URI  TE  (SCREEN  IX.  20] ) 
URITELN; 

FOR  X:-  LEFTBOUND  TO  RIGHT  00  URI TE (SCREEN (X, 211) 
END: 

X  LEFTBOUND; 

Y  UPBOUND; 

END 

ELSE 

BEGIN 

Y  Y  +  1; 

X  LEFTBOUNO; 

END 

END 

ELSE 

BEGIN  (7) 

Y  Y  ♦  1; 

X  LEFTBOUND: 

END:  17) 

(*  etart  neu  page  *) 

PAGEOUT  :  BEGIN  (8) 

BLANKLINES (21. 3,21): 

(*  check  if  satisfied  uith  current  page  «) 

UTITEC  Page  \PAGENUn,*  Okay?  Y/N  :  *); 

IF  GETCHARI  Cy’ ,  ’n* ,  ’  Y’ ,  ’N’l , 

TRUE. TRUE. TRUE)  IN  I’g’.’Y’]  T)CN 

BEGIN  (9) 

(si  urite  current  page  out  to  disk  *) 

COOESCREEN (FALSE ) ; 

(si  clear  the  screen  and  begin  neu  page  editing  *) 

PAGE  (OUTPUT) : 

PAGENUn  PAGE  NUT!  +  1; 

(*  reinitialize  the  screen  buffer  to  all  blanks  *) 
FILL  CHAR (SCREEN  10), SCREENBYTES, '  ’); 

X  LEFTBOUND; 

Y  UPBOUND: 

END;  (9) 

END:  18) 

END;  («  cases  «) 

(«  if  character  typed  uas  a  visible  character  •) 

IF  (CHARCOOE  >-  32)  AMD  (CHARCOOE  <-  12B)  THEN 
BEGIN  1101 

(si  if  last  character  exceeded  screen  boundaries  *) 

IF  (X  >-  RIGHT)  AND  ((Y  >-  LOBOUNO)  OR  (MORE  AND  (Y  >-l) ) ) 

THEN 

SQUAUK 
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ELSE 

BEGIN  til) 

(*  save  the  character  in  the  screen  buffer  *) 
IF  MORE  THEN  SCREEN  IX. Y+20)  SCREENCHAR 
ELSE 

SCREEN [X.Y]  SCREENCHAR: 


(*  aove  cursor  over  one  *) 
X  X  +  1; 


(*  check  auto  wr ap  around  *) 
IF  X  >  RIGHT  THEN 
BEGIN  <121 

IF  V  <  L080UND  THEN 
BEGIN  <131 
X  LEFTBOUNO; 

Y  V  +  1; 

END  (13) 

ELSE 

X  X  -  1: 

END;  (12) 

END;  (111 
END;  (10) 


(«  until  control-c  pressed  «) 
UNTIL  (CHARCOOE  -  ETX)  ; 


END;  («  f i 1 1 screenbuf fer  «) 


(*  eel set  the  ansuer  tupe  *) 

SEGMENT  PROCEDURE  SELECTATYPE; 

VAR  L BOUND. 

HBOUND. 

SELECT  :  CHAR; 

ERR  :  BOOLEAN; 

I  :  INTEGER; 

( . 

(«  get  the  ansuer  bounds  «) 

PROCEDURE  GET ABOUND; 

BEGIN 

ERR  FALSE; 

REPEAT 

PAGE (OUTPUT); 

GOTOXY(22.0); 

WRITE  CENTER  ANSUER  SELECTION  RANGE’ ); 

GOTOXY<0.3); 

UR  I  TEC  Lou  bound?  (letter/digit)  :  ’); 

LBOUND  t-  GETCHAR( C0* . .  *9’ ,  ’ A' . . 'Z’l  .TRUE, TRUE, TRUE) ; 
URITELN; 

URITECHigh  bound?  (letter/digit)  «  ’); 

WOUND  GETCHARt  C0’ . . ’9’ , ’A  . . ’Z’l  .TRUE, TRUE, TRUE) : 
ERR  FALSE; 

IF  (HBOUND  IN  C0\.’9’J)  THEN  (a) 

IF  NOT  (LBOUND  IN  C0’..’9’])  THEN  (b) 

ERR  TRUE; 

IF  (HBOUND  IN  CA’..’Z’J)  THEN  (cl 
IF  NOT  (LBOUNO  IN  CA’..’Z’])  THEN  (d) 

ERR  TRUE; 

IF  ERR  THEN  (e) 

BEGIN  (1) 

URITELN; 

URITELN; 

URITELN (’Bounds  range  type  Mismatch  error!’); 
SQUAUK; 

URITELN; 

STALL; 
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END;  (1) 

IF  (ORD(LBOUNO)  >  ORO(HBOUND))  AND  (NOT  ERR)  THEN  (f) 
BEGIN  (2) 

URITELN; 

URITELNs 

URITELNCLow  bound  exceeds  high  bound  error!’); 
SQUAUK; 

URITELN; 

STALL; 

ERR  s-  TRUE; 

ENO;  (2) 

UNTIL  NOT  ERR; 

I TEMINFO.HIGHANSUER  HBOUND; 

I TEM I NFO . LOUANSUER  L BOUND; 

ENO;  (*  getabound  *) 


BEGIN  (*  selectatype  *) 

PAGE (OUTPUT) ; 

GOTOXY (20, 0) ; 

URI  TEC  SELECT  ANSUER  TYPE’); 

GOTOXY (0.4); 

URITECSelect  one  of  the  following  options  by  entering  its  number.’); 
GOTOXY (1G. 8); 

URITECl.  MULTIPLE  CHOICE/SINGLE  ANSUER* ); 

GOTOXY (1G, 9); 

URITEC2.  INTEGER  VALUE  ANSUER’); 

GOTOXY (1G. 10); 

URI  TEC  3.  MULTIPLE  CHOICE/MULTIPLE  ANSUERS’  >; 

GOTOXY (1G. 14); 

URITECEnter  Choice  U  :  ’); 

SELECT  s-  GETCHAR(C1’..’3’1. TRUE. TRUE. TRUE): 

IF  SELECT  <>  ’2’  THEN  GETABOUND; 

PAGE (OUTPUT); 

CASE  SELECT  OF 
T  :  BEGIN  (II 

GOTOXY (20.0); 

URITECENTER  MULTIPLE  CHOICE/SINGLE  ANSUER’); 

GOTOXY (0.3); 

URITELN (’The  answer  range  is  s  ’ , 1TEMINFO. LOUANSUER, ’ . . ’ , 

1 TEMINFO.HIGHANSUER); 

URITELN; 

ITEMINFO. ATYPE  CHAR VALUE; 

GOTOXY (0.6) t 

URITECEnter  answer  and  then  press  <RET>  ;  ’); 

FILLBUF (1,  1 1  TEM  lfFO.  LOUANSUER. . I TEMINFO.HIGHANSUER] . 

TRUE); 

I TEM I NFO. ANSUER  LINEBUF  (0) ; 

LINE8UFI0]  ’  ’; 

ENO:  (1) 

’2’  :  BEGIN  (2) 

GOTOXY (20,0); 

URITECENTER  INTEGER  VALUE  ANSUER’); 

ITEMINFO. ATYPE  INTVALUE; 

GOTOXY (0.6) $ 

URITECEnter  answer  (integer 

’value)  and  then  press  <RET>  :  ’); 

READLN(I); 

ITEMINFO. INTANSUER  I; 

END;  (2)  . 

’3’  :  BEGIN  (3) 

GOTOXY (20,0); 

URITECENTER  MULTIPLE  CHOICE/MULTIPLE  ANSUERS*); 

GOIOXY (0,3) ; 

URI  TEC  The  answer  range  is  :  ’.  ITEMINFO.  LOUANSUER,  , 

I TEMINFO.HIGHANSUER); 

I TEM INFO. ATYPE  SEVENCHR; 

GOTOXY (0,6); 

URITECEnter  the  number  of  answers’, 

’  this  question  has  (1..7)  ;  ’); 
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SELECT  GETCHARl  t’l* . . *7*1 , TRUE, TRUE, TRUE) j 
I  TEH I NFO. ANSUERCOUNT  ORO (SELECT)  -  48: 

URITELN; 

UR1TELN: 

FOR  I  1  TO  I  TEH I NFO. ANSUERCOUNT  DO 
BEGIN  (4) 

URITE (’Enter  answer  ’,1.',  then  press  <RET>  :  ’); 
FILLBUFd, 

(ITEMINFO.LOUANSUER. .ITEMINFO.H1GHANSUER), 
TRUE); 

ITEMINFO.CHRANSUERCI1  : -  L I NEBUF  (81 ; 

LINEBUF C0] 

URITELN; 

END;  (4) 

END;  (3) 

END:  (*  case  *) 

END;  (*  selectatype  *) 


(*  gets  question  data  and  text  and  puts  into  file  *) 
SEGMENT  PROCEDURE  INSERTITEM; 

VAR  OPENSLOT, 

HASHLOC. 

COOENUM, 

SLOT  :  INTEGER: 

DONE. 

COOEOK  :  BOOLEAN; 


(«  get  data  for  I  teas  *) 
PROCEDURE  GETITEMDATA: 
BEGIN  (*  get  item  data  *) 
SELECTATYPE; 

(*  get  itea  paraaeters  «) 
PAGE (OUTPUT); 
GETPARAM(’A’); 
GETPARAM(’B’); 
GETPARAMCC’ )  i 
UITH  ITEMINFO  DO 
BEGIN  III 
A  A VALUE; 

B  :•  B VALUE: 

C  i*  C VALUE; 

ENG;  <1) 

END;  (»  get  itea  data  •) 


(a  verify  the  data  *) 

PROCEDURE  VERIFYDATA; 

VAR  SELECT  :  CHAR; 

BEGIN 

REPEAT 

PAGE (OUTPUT); 

GOTOXY(20,0); 

U?ITE(’VERIFY  QUESTION  OATA  MENU’); 

GOTOXY (0,4) ; 

URITE(’Select  one  of  the  following  options  by  entering  its  nuaber.’) 
GOTOXY (0.6); 

LRITE( ’Current  data  :  ’); 

GOTOXY (15,6) ; 

URITECA  paraaeter  -  ’.  ITEMINFO. A;5;3); 

GOTOXY (15, 7); 

URITE  CB  parameter  -  ’,  ITEMINFO. B:5:3) ; 

GOTOXY (15, 8); 

URITECC  parameter  -  ’ ,  I TEMINF0.C;5:3) ; 

GOTOXY (16. 12); 

URITEI’l.  QUIT  (data  ok)’); 

G0T0XY(16,13); 

URITE (’2.  CHANGE  PARAMETER  A’); 
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GOTOXY (IS, 14) : 

UR1TEC3.  CHANGE  PARAMETER  B* ) : 

GOTOXY (1G. 15): 

URITEC4.  CHANGE  PARAMETER  C*)j 
GOTOXY (16,18): 

URITECEnter  Choice  U  :  ’): 

SELECT  :-  GETCHARUT. . ’4’] , TRUE, TRUE,  TRUE) ; 
CASE  SELECT  OF 

•r  :  : 

*2*  :  BEGIN  111 

GETPARAMCA* ) ; 

I TEMINFO. A  AVALUE; 

ENO:  111 
*3*  :  BEGIN  (2) 

GETPARAflCB’): 

I TEMINFO. B  BVALUE; 

ENO;  121 
*4’  :  BEGIN  (31 

GETPARAI1(*C’ ) ; 

ITEDINFO.C  CVALUE; 

ENO;  13) 

ENO;  (*  cases  s) 

UNTIL  SELECT  -  *l*j 
ENO;  (*  verify  data  *) 


I . 

BEGIN  (*  insertitee  *) 


(*  look  for  free  slot  in  directory  *) 

OPENSLOT  s-  I TEMFREESLOT ; 

(«  if  no  rooe  in  subtest  directory  *) 

IF  OPENSLOT  <  0  THEN 
BEGIN  ID 
PAGE (OUTPUT) ; 

URITELN; 

URITELNI’No  rooe  to  add  question  !!  ’); 

URITELN; 

STALL; 

EXITdNSERTITEN); 

ENO:  III 

(*  get  question  code  U  «) 

PAGE (OUTPUT); 

COOEOK  FALSE; 

IJRITELN; 

REPEAT 

URITECEnter  the  question  code  N,  then  press  <RET>  :  ’); 
(••I-*) 

REAOLN  (COOENUfl) ; 

<*«!+*) 

(*  if  valid  code  U,  >-  0  *) 

IF  COOENUM  >-  0  THEN 
BEGIN  (2) 


(*  check  if  code  U  previously  used  in  this  subtest  *) 
SLOT  SLOTSEARCH (COOENUM) ; 

IF  SLOT  <>  NIL  THEN 
BEGIN  (3) 

URITELN; 

URITELNCCode  U  •.COOENUn,*  previously  used  !’); 
URITELN; 

SOU AUK; 

ENO  13) 

ELSE 

COOEOK  :-  TRUE; 

ENO  (2) 

ELSE 

EXlTdNSERTITED); 

UNTIL  COOEOK; 
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(*  save  cods  number  in  subtest  directory  *) 

OIRECTORY.  I TEDCOOE  [QPENSLOT]  COOENUfl; 

(*  get  ptrs  to  free  space  to  put  question  text  *) 

LOAOPTRS: 

(*  save  these  ptrs  tor  this  question  *) 

ITEM  INFO.  ITEtIPTR  CURRFREEPTR; 

ITEMINFO. ITEM8L0CK  CURRBLOCK: 

(*  enter  in  text  for  the  question  •) 

F I LLSCREENBUFFER ( TOPMAX . R I GH  TMAX . 

BOTTOMMAX.LEFTMAX, TRUE) j 

(«  set  graphics  flag  «) 

ITEM INFO. GRAPH ICS  FALSE: 

TEXT88M00E: 

(*  set  the  graphics  flag  e) 

SETGFLAG; 

(*  get  the  data  for  the  question  *) 

GETITEMOATA; 

(«  verify  the  data  *) 

VER1FYOATA; 

(«  write  the  screen  buffer  to  block  buffer  to  ascii  file  *) 
COCE SCREEN (TRUE) : 

(*  update  the  new  location  of  free  space  to  put  text  •) 
SAVEPTRS; 

(«  update  the  sub test  directory  to  disk  «) 

UPDATED I RECTORY (CURR I NOEXRECNUM) ; 

(*  update  count  of  items  for  this  subtest  ») 

DIRINFO ICURRINOEXRECMJM] . I TEMCOUNT 

OIRINFO  [CURRINDEXRECNUM] .  ITEMCOUNT  ♦  1: 

(*  find  the  location  to  put  the  question  data  e) 

HASHLOC  s-  HASH (OPENSLOT ) ; 

(«  write  the  record  to  disk  *) 

UPOATE I TEMF I LE (HASHLOC ) ; 

END:  (e  insert  item  *) 
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Textfile  :  TMGR.DJR/T. IO.TEXT  Volume  :  TFILES 

Codefile  :  T.MGR.COOE  ('Include'  file)  Volume  :  CATOATA 


(*  File  last  Modified  :  Feb  18,  1983 


(«  unites  the  item  ascii  buffer  to  diskfile  *) 

PROCEDURE  URITEITEM8L0CK; 

VAR  BLOCKS TRANSFERRED  :  INTEGER: 

BAD 10  :  BOOLEAN; 

BEGIN 

BAD 10  FALSE; 

RESET ( I TEMTEXT , TEXTNAflE ) ; 

BLOCKSTRANSFERREO  BLOCK^I  TE  (I  TEMTEXT,  TR IX. ASCII  BUF. 4. UHICHBLOCK) 

BAOIO  ( (BLOCKSTRANSFERRED  <  4)  OR  UORESULT  <>  0)); 

CLOSE (I TEMTEXT, LOCK); 

IF  BADIO  THEN 
BEGIN  (1) 

URITELN;URITELN; 

URITEC  Block  '  .UHICHBLOCK, '  urite  io  error. '); 

URITELN; 

URITELNC  Possibly  no  room  to  expand  '.TEXTNAME); 

URITELN ('  Must  have  unused  space  at  end  of  file'); 

URITELNC  or  put  file  at  end  of  directory.*); 

URITELN: 

STALL: 

EXIT (PROGRAM); 

END;  (1) 

END:  (*  ur i tei teab lock  *) 


(*  reads  a  block  from  disk  into  the  i tea  ascii  buffer  a) 

PROCEDURE  RE AO I TEMBLOCK; 

VAR  BLOCKSTRANSFERRED  :  INTEGER: 

BAOIO  :  BOOLEAN; 

BEGIN 

BAOIO  i-  FALSE; 

RESET ( I TEMTEXT , TEXTNAME ) ; 

BLOCKSTRANSFERREO  :-  BLOCKREADI I TEMTEXT. TRIX. ASCI IBUF, 4. UHICHBLOCK); 
BADIO  ((BLOCKSTRANSFERRED  <  4)  OR  UORESULT  <>  8)); 

CLOSE ( I TEMTEXT. LOCK); 

IF  BAOIO  THEN 
BEGIN  ID 

URITELN: URITELN; 

URITEC  Block  '  .UHICHBLOCK,  *  read  io  error.'); 

URITELN; 

URITELNC  Cant  read  ’.TEXTNAME); 

URITELN; 

STALL; 

EX IT (PROGRAM); 

END;  (1) 

END; 


(«  returns  the  slot  tt  in  subtest  directory  where  question  is,  nil  if  the 
(«  question  code  is  not  in  the  directory  *) 

FUNCTION  SLOTSEARCH; 

VAR  SLOT  s  INTEGER; 

FOUND  :  BOOLEAN; 

BEGIN 

(*  skip  space  reserved  for  samples  *) 

SLOT  :-  MAXSAMPLES  +  1; 

FOUND  FALSE: 

REPEAT 

IF  DIRECTORY. I TEMCOOE (SLOT)  -  CODE 
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THEN 

FOUND  TRUE 

ELSE 

SLOT  SLOT  +  1, 

UNTIL  (SLOT  >  MAX1TEMP00L)  OR  (FOUND) : 

IF  FOUND 
THEN 

SLOTSEARCH  SLOT 

ELSE 

SLOTSEARCH  s-  NIL: 

END;  (*  slot  search  *) 

I . - . - - - - - . ) 

(*  updates  test  directory  *) 

PROCEDURE  UPDATED! RECTORY; 

BEGIN 

RESET (FILEOIRECTORY, INDEXNANE) ; 

SEEK  (FILEOIRECTORY, RECNUT1) ; 

FI  LED  I  RECTORY''  DIRECTORY; 

PUT (FILEOIRECTORY): 

CLOSE (FILEOIRECTORY, LOCK) ; 

END;  (*  updatedirectory  *) 

( - - - - - ) 


(*  updates  itee  data  file  a) 

PROCEDURE  UPOATEITEMFILE; 

BEGIN 

RESET  (F I LE I  TEN I NFO, DATANANE) ; 

SEEK  (F I LE I  TEN  I NFO ,  RECNUT1 ) ; 

FI  LEI  TEN  I  NFO''  ITENINFO; 

PUT (FILEI TENINFO) ; 
aOSE  (FILEITENIfFO.LOCK) ; 

END;  (e  update i teef i le  *) 

I . - . - . ) 

(«  eaves  value  of  free  space,  block  4  byte  ptr  in  block  0,  bytes  0. .3  of  tent  ») 
(•  file  expects  the  block  value  to  be  in  CURRBLOCK  *) 

(*  and  the  byte  value  to  be  in  CURRFREEPTR.  *) 

PROCEDURE  SAVEPTRS; 

VAR  TRIX1  :  RECORD  CASE  INTEGER  OF 

1  s  (MBYTES  :  PACKED  ARRAY 

I0..1I  OF  CHAR); 

2  :  (INTVALUE  :  INTEGER); 

END; 

BEGIN 

READ  I  TEfBLOCK  (0) ; 

TR I XI. INTVALUE  CURRBLOCK; 

nOVELEFT(TRIXl. TUOBYTES 10] . TRIX. ASCI IBUF  10) ,2) ; 

TRIX1. INTVALUE  CURRFREEPTR; 

N0VELEFTITRIX1. TUOBYTES 10] , TRIX. ASCI IBUF  12) ,2) ; 

URITEITETTBLOCK(0); 


END;  (e  save  ptrs  *) 

( - - - - - - - ) 


(*  loads  block  0  4  byte  ptr  of  free  space  always  the  end  of  the  last  text  *) 
(*  entered  puts  the  free  block  nueber  in  CURRBLOCK  and  byte  0  in  CURRFREEPTR.  *) 
PROCEDURE  LOAOPTRS; 

VAR  TRIX1  :  RECORD  CASE  INTEGER  OF 

1  :  (TUOBYTES  :  PACKED  ARRAY I0..1)  OF  CHAR); 

2  :  (INTVALUE  s  INTEGER); 

END; 

BEGIN 

READ! TEN8L0CK (0) ; 

I10VELEFT(  TRIX.  ASCI  IBUF  10] .  TR  I XI.  TUOBYTES  C0J .  2) ; 

CURRBLOCK  TRIX1 . INTVALUE; 

HOVELEFT (TRIX. ASCI IBUF  12) . TR I XI. TUOBYTES  10) ,2) ; 

CURRFREEPTR  TR I XI . INTVALUE; 

END;  (e  load  ptrs  «) 
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(*  *) 

<*  Textfile  :  TMGR.DIR/T.GET1. TEXT  Volume  :  TFILES  *) 

(*  Co defile  :  T.HGR.CDOE  (’Include*  file)  Volume  :  CATDATA  «) 

(*  •) 

(*  File  last  modified  :  Hag  20,  1983  NPRDC  «) 

{*#*#***jjt.'***.***xx***jmt*tir%*  »  ♦  ««r«  »«>  r»  »»♦»«»»*♦»«< 

(«  list  item  text  and/or  item  parameters  *) 

SEGMENT  PROCEDURE  LISTITEMSi 

TYPE  OINFO  -  RECORD 
I CODE, 

I  SLOT  :  INTEGER! 

END; 


VAR  BYTECNT, 

BLKCNT . 

SAVENUM, 

STARTNUM, 

STOPNUM, 

SLOTNUM, 

SCREENS YTES, 

BLK. 

BLKPTR, 

I, 

X. 

UASTETIME, 

DATASLOT  s  INTEGER; 

BREAKF1LE, 

TOFILE, 

OONELIST. 

CONSOLE. 

CONTINUE. 

COMPLETE. 

LISTTEXT  s  BOOLEAN; 

SELECT. 

OPT. 

COMMAND, 

LCOMMANO  :  CHAR; 


A  ;  ARRAY  [0. . 2941  OF  OINFO; 


I . I 

(*  sort  the  directory  *) 

PROCEDURE  QUICKSORT; 

VAR  B  s  INTEGER; 

I . I 


PROCEDURE  SORT (L.R  :  INTEGER); 

VAR  I.J  ;  INTEGER; 

X.W  :  OINFO; 

BEGIN  («  sort  «) 
ur  i  te(’ .  * ) ; 

I  ;«  L; 

J  t-  R; 

X  At(L-fR)  OIV  2); 

REPEAT 

UHILE  A  ( 1 1 . 1  CODE  <  X.ICOOE  DO  I  I  ♦  1; 
WHILE  X.ICOOE  <  AtJI.ICOOE  00  J  i-  J  -  I; 
IF  I  <-  J  THEN 
BEGIN  ill 
U  AID; 

Adi  A  t J] ; 

AIJI  U; 

I  I  +  1; 

J  J  -  1; 
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END:  (1) 

UNTIL  I  >  J: 

IF  L  <  J  THEN  SORT (L, J) j 
IF  I  <  R  THEN  SORT (I ,R) ; 
END;  («  sort  *) 


BEGIN  (*  quicksort  •) 

FOR  B  0  TO  294  DO 
BEGIN  III 

AIBI.ICOOE  DIRECTORY.  1 TEHC006 18+61 ; 

A  IB] .  I  SLOT  B+G; 

END:  (1) 

SORT (0,294) j 
END:  (*  quicksort  *) 


(*  reads  itee  text  file  X  displays  i tee  text  to  printer  or  file  *) 
PROCEDURE  LISTPRINT (BLOCKNUfl,  BLOCKPTR  :  INTEGER); 

VAR  X, 

Y. 

OLDY. 

CURRPTR, 

CURRBLK, 

SCREENBYTES, 

CHARCOOE, 

SKIP8YTE  :  INTEGER; 

C . 

(*  returns  next  code  in  file  «) 

FUNCTION  LBUFCOOE  :  INTEGER; 

BEGIN 

LBUFCOOE  TR IX. ASCI  1 8UF [CURRPTR] ; 

CURRPTR  CURRPTR  ♦  1; 

IF  CURRPTR  >  2047  THEN 
BEGIN  (1) 

CURRBLK  CURRBLK  +  4; 

READ I TENBLOCK (CURRBLK) i 
CURRPTR  0; 

END;  (II 

END;  (*  Ibufcode  *) 


BEGIN  («  listprint  «) 

SCREENBYTES  (XSCREEN  +  1)  »  (YSCREEN  +1); 

F I LLCHAR (SCREEN (0J. SCREENBYTES,’  ’); 

OLDY  TOPflAX; 

RE AO I TEHBLOCK (BLOCKNUH) ; 

CURRPTR  BLOCKPTR; 

CURRBLK  BLOCKNLfl; 

REPEAT 

CHARCOOE  LBUFCOOE; 

CASE  CHARCOOE  OF 
GOTOFLAG  :  BEGIN  (1) 

X  LBUFCOOE; 

Y  LBUFCOOE; 

(*  ignore  next  byte,  due  to  a  file  eodification  *) 

SKI PBYTE  LBUFCOOE; 

(e 

UHILE  OLDY  <  Y  DO 
BEGIN  (21 

«) 

URITELN(OEST) ; 

(« 

OLOY  OLOY  +  1; 

END;  (21 

*) 

URITE(DEST.’  ’  :  X); 
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END;  (1) 

PAGEFLAG  :  BEGIN  13) 

URI  TELN(DEST) ; 

URITELN(DEST); 

URI TELN(DEST) ; 

OLDY  TQPMAX; 

END;  (3) 

ENOI  TEfl  s  ; 

END;  (*  cases  *) 

IF  (CHARCOOE  >-  32)  AND  (CHARCODE  <-  126)  THEN 
BEGIN  <4) 

SCREEN IX.YJ  CHR (CHARCOOE); 

X  X  +  1; 

URI TE (DEST, CHR (CHARCOOE) ) ; 

BYTECNT  :•  BYTECNT  *  1; 

END:  (4) 

UNTIL  CHARCODE  -  END I  TED; 

END:  (*  print  *) 


(«  lists  things  to  the  console  «) 

PROCEDURE  LCONSOLE; 

VAR  FIXCHAR  :  CHAR; 

GRAF  i  BOOLEAN; 

BEGIN 

IF  LISTTEXT  THEN 
BEGIN  (1) 

GRAF  FALSE; 

IF  I TEMINFO. GRAPHICS  THEN 
BEGIN  (2 ) 

FILLPORT; 

GOECOOEPR I N  T  (CURR I NDEXRECNUH ,  A  (SLOTNUPII .  ICOOE); 

PAGE (OUTPUT); 

GRAF  TRUE; 

END  (2) 

ELSE 

DECOOEPRINT (BLX.BLXPTR) ; 

GOTOXY (0.28) ;GOTOXY (20.23) ; 

IF  SLOTNUD  >  MAXSAfR.ES  TVCN 
BEGIN  (3) 

IF  NOT  GRAF  THEN 
BEGIN  (4) 

IF  PCRECNUM  THEN  GOTOXY (0,23) 

ELSE  GOTOXY (0.28); 

URI  TEC  I  tee  code  ;  1 .  A ISLOTNUM) .  I COOE ) ; 

IF  PCRECNUM  THEN  GOTOXY (20, 23) 

ELSE  GOTOXY (0.21); 

URITECAnsuer  >’); 

IF  PCRECNUM  TVCN 
CASE  ITEMDCO.ATYPE  OF 
CHARVALUE  ;  URITEC  \  I  TEMINFO.  ANSUER) ; 

I  NT  VALUE  s  URITEC  \I  TEMINFO.  I NTANSUER) ; 

SEVENCHR  ;  BEGIN 

FOR  I  i-  1  TO  (TEMINFO. ANSUERCOUNT  00 
URITEC  ' ,  I  TEMINFO.  CHRANSUER  (I ) ) ; 

END; 

END  I*  cases  •) 

ELSE 

CASE  I TEMINFO. ATYPE  OF 

CHARVALUE  s  URITELNC  \  I  TEMINFO.  ANSUER) ; 

I  NT  VALUE  :  URITELNC  f .  ITEM  INFO.  I  NT  ANSUER) ; 

SEVENCHR  <  BEGIN 

FOR  I  s-  1  TO  I TEMINFO. ANSUERCOUNT  DO 
IF)  I  TE  C  *  .ITEH1NF0.CHRANSUERU) ); 

URITELN; 

END; 

END;  (*  cases  *) 

IF  PCRECNUM  THEN  GOTOXY (32, 23) 

ELSE  GOTOXY (0,23); 

URITECPress  <RET>  to  continue,  <ESC>  to  quit  ’); 

IF  GETCHAR(ICHR(RET),CHR(ESC)1. TRUE. TRUE, TRUE)  -  CHR(ESC)  TVCN 
BEGIN  (5) 
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CLOSE  (FI  LEI  TEfll  NFO  .LOCK); 

EXIT (LIST1TEHS) : 

END:  (5) 

END  (4) 

ELSE 

BEGIN  (6) 

GGOTOXY10.28) ; 

GURITESTRC  I  tee  code  :  ’); 

GURITEINT  (A  tSLOTNUTI  J .  I COOE ) : 

GGOTOXY (9,21) : 

GURITESTRC  Answer  :  *)j 
CASE  ITEflINFO.ATYPE  OF 
CHARVALUE  :  GURITECFFHITEfllNFO.ANSUER); 

1  NT VALUE  :  GURITEINT (ITEM I NFO. INTANSUER); 

SEVENCHR  :  BEGIN 

FOR  I  1  TO  ITEdltFO. ANSUERCOUNT  DO 
BEGIN 

GURI TECHR 1 1  TEfll  NFO.  CHRANSUER  III ) ; 

GURITECHRC  * ) : 

END; 

END; 

END:  (*  caset  «) 

GGOTOXY (8. 23): 

GURI TESTR ('Press  <RET»  to  continue.  <ESC>  to  quit  ’)j 
IF  GETCHAR(lO#HR£T),CHR (ESC)  1. TRUE. TRUE. TRUE)  -  CHR(ESC)  T)CN 
BEGIN  (71 
TEXTON; 

CLOSE (FILEI TEniNFO.LOCK) j 
EXIT (LISTI TETtS) : 

ENO;  (7) 

TEXTON; 

END;  (6) 

ENO  (3) 

ELSE 

GSTALL: 

ENO  (1) 

ELSE 

BEGIN  (8) 

K  *-  K  ♦  It 

Lfll  TE  (A  ISLOTNUTU  .  I COOE  :  7. 

ITEflINFO.A  :  18  :5, 

ITEflINFO.B  :  12  iS. 

ITEHINFO.C  :  11  :5); 

uriteC  * )  * 

IF  I  TEfll  NFO.  GRAPH  ICS  THEN 
URITEC  on  ') 

ELSE 

miTEC  off): 

if  ITEMINFO.OUrtlYl  .  1.0  THEN 
URITELNC  gee*) 

asE 

IHITELNC  no’)  i 

IF  K  >  18  THEN 
BEGIN  (91 
URITELN; 

STALL: 

K  «-  9: 

PAGE (OUTPUT): 

URITELN; 

URITELN ( 

’  I  tee  code  ABC  graphics  krunched*): 

URITELN: 

ENO:  (9) 

ENO;  (8) 

ENO;  (e  I  console  *) 


( . - - - - - 

(«  lists  i tee  text  and  data  to  file/printer  *) 
PROCEDURE  LFILE; 
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THEN 


I  ten  code  :  * , A  ISLOTNUM) . I  CODE) ; 


A  parameter 
B  parameter 
C  parameter 


MTEniNFO.A) 
’ , 1TEMINFO.B) 
’ ,  ITEMINFO.C) 


BEGIN 

IF  L1STTEXT 
BEGIN  (1) 

IF  SLOTNUfl  >  MAXSAMPLES  THEN 
BEGIN  (21 

URITELNIDEST,  * 

URITELNIDEST): 

I TELN (OEST,’ 

URITELNIDEST.  ’ 

URITELNIDEST,  ’ 

END:  12) 

LiSTPRINT (BLK.BLKPTR) : 

URITELNIDEST): 

URITELNIDEST): 

IF  SLOTNUD  >  MAXSAMPLES  THEN 
BEGIN  13) 

URITE (OEST, '  Answer  Is)  :  * ) ; 

CASE  ITEflINFO.  ATYPE  OF 

CHARVALUE  :  URI TELNIDEST. I TEMINFO. ANSWER) ; 

URITELNIDEST. I TEMINFO. INTANSUER) : 

BEGIN  14) 

FOR  I  1  TO  I  TED I NFO . ANSUERCOUNT  DO 
URITE IDEST,  I TEMINFO. CHRANSUER II)  ,*  ’); 
URI  TELN  (OEST): 

END:  14) 

END;  I*  cases  *) 

URITELNIDEST): 

END;  131 

FOR  I  1  TO  80  00 
URITE (OEST,* -’); 

UR I TELN (OEST ) ; UR I TELN (OEST ) ; 

BYTECNT  BYTECNT  +  1S0; 

END  III 
ELSE 

BEGIN  IS) 

UR  I TE  (OEST ,  A ISLOTNUM]  .  I  CODE  : 

I TEMINFO. A  t  10  :4. 

I TEMINFO. B  :  10  :4. 

ITEMINFO.C  :  10  :4); 


INTVALUE 

SEVENCHR 


8. 


IF  I TEMINFO. GRAPH ICS  THEN 
URlTE(dest,'  on  ’) 

ELSE 

URITEIdest,  *  off); 


1.0  T)CN 
ges’) 


if  ITEMINF0.0UMMY1 
URITELNIdest, * 

ELSE 

URITELNIdest.'  no'); 
EM):  <S) 

END:  (e  Ifile  s) 


I- 


PROCEDURE  GETL1STINF0: 

BEGIN 

PAGE (OUTPUT): 

GOTOXY (0,4) : 

URI  TECSelect  one  of  the  following  options  bg  entering  its  number.’); 
G0T0XYUB.8): 

URITEI’l.  QUIT’); 

GOTOXY  (16. 9): 

URITEC2.  COMPLETE  LISTING’); 

GOTOXY (16. 10); 

URITEI’3.  PARTIAL  LISTING’); 

GOTOXY (16. 18); 

URITE ('Enter  Choice  f  i  *); 

OPT  GETCHARIl’l’.. ’3’). TRUE, TRUE, TRUE); 

CASE  OPT  OF 

T  :  EXI T (LISTI TEMS) ; 

•2’  :  COMPLETE  TRUE; 

•3’  i  COMPLETE  FALSE; 

END; 


V  S"  \* 


V 

‘•W 


IssM 


•1 


mi 


v.s- 


A 
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IF  NOT  COMPLETE  THEN 
BEGIN  (1) 

PAGE (OUTPUT) s 
GOTOXY (20,0) s 

UR  I  TEC  ENTER  RANGE  OF  ITEMCOOES  TO  LIST* )  t 
URITELN; 

URITELNt 

URI  TE  (’List  all  I  tees  between  iteecode  t  '); 

REAOLN (STARTNUM) ; 

URITELNt 

URI  TEC  And  iteecode  t  ’ ) ; 

REAOLN (STOPNUM); 

IF  STARTNUM  >  STOPNUM  THEN 
BEGIN  12) 

SAVENUM  STARTNUM; 

STARTNUM  s-  STOPNUMt 
STOPNUM  t-  SAVENUM; 

END;  (2) 

END;  (1) 

PAGE (OUTPUT); 

GOTOXY (20. 8); 

URI  TEC  OUTPUT  SELECT  MENU*); 

GOTOXY (0,4); 

URITECSeleet  one  of  the  following  options  by  entering  i 
GOTOXY (16. 8); 

URITEC1.  QUIT*); 

GOTOXY (16,9); 

URITEC2.  TEXT  TO  CONSOLE’); 

GOTOXY (16. 10); 

URITEC3.  DATA  TO  CONSOLE'); 

G0T0XYI16.il) ; 

UR1TEC4.  TEXT  TO  PRINTER’ ); 

GOTOXY (16. 12); 

URITECS.  DATA  TO  PRINTER* ); 

GOTOXY (16. 13); 

URITEC6.  TEXT  TO  FILE’) ; 

GOTOXY (16. 14); 

URI  TEC  7.  DATA  TO  FILE’); 

GOTOXY (16, 18); 

URITECEnter  Choice  #  t  ’); 

SELECT  J-  GETCHAR(C1’..’7’J, TRUE, TRUE, TRUE); 

CONSOLE  i-  FALSE; 

LISTTEXT  TRUE; 

IF  SELECT  -  ’1*  THEN 
begin 

updated i rectory (currindexrecnue) ; 

EXIT (LISTITEMS) ; 
end; 

END;  (*  get  lietinfo  *) 


BEGIN  (*  lietitees  e) 

GETLISTINFO; 

PAGE (OUTPUT); 

URITECPIease  wait’); 

QUICKSORT; 

TOFILE  FALSE; 

CASE  SELECT  OF 
’I*  *  i 

’2’  :  CONSOLE  s-  TRUE; 

’3’  «  BEGIN  (1) 

CONSOLE  TRUE; 

LISTTEXT  FALSE; 

ENO;  ID 

•4’  t  REURITE(OEST.UNITNUMPRINTER); 
’S’  :  BEGIN  12) 

REUR I TE (DEST , UN I TNUMPR INTER); 
LISTTEXT  s-  FALSE; 

ENO;  (2) 

’6’  t  BEGIN 


s  nueber. ' ) ; 


J 


,v 
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y: 

ENO; 

IF  SELECT  IN  [’G'.'7'l  THEN 

BEGIN  (4) 

TOFILE  TRUE; 

PAGE (OUTPUT) ; 

■ 

URITECUriting  to  fi's.') 

a 


GETNEUFILE; 

PAGE (OUTPUT) s 

URITECDo  you  want  to  break  the  files  up?  Y/N  '); 

IF  GETCHARU'Y*.  'N'.V.'n'l.  TRUE,  TRUE,  TRIE)  IN  I’Y'.'y*]  THEN 
BREAKFILE  t-  TRUE 
ELSE 

BREAKFILE  FALSE; 

END; 

BEGIN  (3) 

LISTTEXT  s-  FALSE; 

GETNEUFILE: 

ENO;  (3) 


END;  (4) 

IF  NOT  CONSOLE  THEN 
BEGIN  (Si 
UR I TELN (DEST) ; 

FOR  I  1  TO  80  DO 
URI TE (DEST, ) ; 

URI TELN (DEST) ; 

UR  I TELN (DEST , 01 RECTORY . TESTNAflE ) ; 
FOR  I  ; -  1  TO  80  DO 
URITEIDEST,’*’); 

URI TELN (DEST) ; URI TELN (OEST) ; 

ENO;  (Si 

RESET  (FlLEITETIINFO.OATANAflE) ; 

K  0; 

IF  NOT  LISTTEXT  THEN 
BEGIN  (El 

IF  CONSOLE  THEN 
BEGIN  17) 

PAGE (OUTPUT); 

URI TELN ( 

*  I  tea  code  A  6 

URI TELN; 

ENO  (7) 

ELSE 

BEGIN  (8) 

URI TELN (OEST. 

*  I  tea  code  A  B  C 

URI TELN (OEST); 

ENO;  (8) 

ENO;  (6) 


graph i cs  krunched* ) 


graphics  krunched'); 


PCRECNUT1  ;-  <CURRIN0EXRECNUn-4)  OR  ICURRINOEXRECNUn-S)  ; 
SLOTNUO  «-  0; 

BYTECNT  8; 

BLKCNT  4; 

DONELIST  FALSE; 

REPEAT 

CONTINUE  TRUE; 

IF  NOT  COTPLETE  THEN 
IF  (A  CSLOTNUm  .  ICQOE  <  STARTNUT1)  THEN 
CONTINUE  FALSE; 

IF  NOT  COflPLETE  THEN 
IF  (A (SLOTNUH) . 1C00E  >  STOPNUH)  THEN 
BEGIN  13) 

CONTINUE  i-  FALSE; 

OONELIST  s-  TRUE; 

END;  (3) 

IF  (AlSLOTNUfl) . I  CODE  >-  0)  AND  (CONTINUE)  THEN 
BEGIN  (10) 

IF  SELECT  IN  ('6'. '7')  T)CN 
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URITEC.’); 

DATASLOT  HASH  (A  [SLOTNUM] .  1SL0T)  ; 

SEEK (FILE ITEMINFO, DA TASLOT); 

GET (FILEITEHINFO) i 
ITEMINFO  FILE1 TEMINFO'*'; 

BLK  ITEMINFO.  ITEM8L0CK; 

BLKPTR  ITEMINFO. I TEMPTR; 

IF  CONSOLE  THEN 
LCONSOLE 
ELSE 
LFILE: 

IF  8YTECNT  >  512  THEN 
BEGIN 

BLKCNT  BLKCNT  +  1; 

BYTECNT  BYTECNT  MOO  512; 

END: 

IF  (BREAKFILE)  ANO  (BLKCNT  >-  38)  AND  (LISTTEXT)  AND  (TOFILE) 
BEGIN 

CLOSE  (DEST.LOCIO ; 

GETNEUFILE; 

BLKCNT  4; 

BYTECNT  0; 

END; 

END:  (10) 

SLOTNUfl  SLOTNUM  +  It 


UNTIL  (SLOTNUM  >  294)  OR  OONELIST: 

IF  NOT  (CONSOLE)  THEN 
CLOSE  (OEST.LOCK) 

ELSE 

IF  (NOT  LISTTEXT)  AND  (X  <>  0)  T)€N 
BEGIN  (11) 

WRITELN; 

STALL; 

END;  (11) 

CLOSE (FILEITEMINFO.LOCK); 

END;  (*  I i at i tees  •) 


THEN 
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ltt» 

(« 

(» 

f* 

<» 


t*****************************************) 


Text f i le 
Codef i le 


TMGR.0IR/T.GET2. TEXT 
T. MGR. CODE  (’Include*  file) 


Vo  I ume 
Volume 


TFILES 

CATDATA 


(********************************** »«»»«« 

(*  File  last  modified  :  May  25,  1983 


«) 
*) 
*) 
*) 

**************** ) 


NPRDC 


«) 

****** ) 


(*  get  test  item/displau  text/data,  allow  changes  *) 

SEGMENT  PROCEDURE  FETCHITEM; 

VAR  DATASLOT, 

SLOT, 

BLOCK , 

BLOCKPTR, 

CODENUM  :  INTEGER; 

CODEOK  :  BOOLEAN: 

COMMAND  :  CHAR; 

I . I 


(*  display  fetch  item  menu  «) 

PROCEDURE  ITEMMENU; 

BEGIN 

TEXT80MODE; 

NORMAL: 

GOTOXY (20,0) : 

URI TE ('FETCH  ITEM  MENU’); 

GOTOXY (0.4); 

URITECSelect  one  of  the  following  options  by  entering  its  number.’); 
GOTOXY (0.8); 

URITECCurrently  managing  question  :  ’.CODENUM); 

GOTOXY (18. 10); 

URITEC1.  QUIT’); 

GOTOXYU6.il); 

URITEC2.  DISPLAY  QUESTION  TEXT’); 

GOTOXY  (18. 12); 

URI TE (’3.  DISPLAY  QUESTION  DATA’); 

GOTOXY (16. 13); 

URITEC4.  MOOIFY  QUESTION’); 

GOTOXY (16, 14); 

URITEC5.  DELETE  QUESTION’); 

GOTOXY (16. 15); 

URITEC6.  SET  GRAPHICS  FLAG’); 

GOTOXY (IS. 18); 

URITECEnter  Choice  tt  t  ’); 

END;  (•  i temmenu  *) 

( - - - - - ) 

PROCEDURE  SHOUINFO; 

VAR  I  :  INTEGER; 

BEGIN 

TEXT80MOOE; 

GOTOXY  (22,0); 

UR  I  TEC  QUEST  I  ON  DATA’); 

(*  display  item  data  *) 

GOTOXY (0.3); 

URITELNCA  Parameter  s  ’ .  I TEMINFO.  A:5:3) ; 

URITELNCB  Parameter  :  ’ .  ITEMINF0.B:5:3) ; 

URITELNCC  Parameter  :  ’ ,  ITEMINF0.C;5:3) ; 

(*  show  answer  range  and  ansuer  e) 

URI  TEC  Answer  type  ;  ’); 

CASE  I TEMINFO. AT YPE  OF 

CHARVALUE  ;  UR  I TELN ( ’ MUL T I PLE  CHOICE/SINGLE  ANSUER’); 

I  NT VALUE  ;  URI TELN C INTEGER  VALUE  ANSUER’); 

SEVENCHR  ;  URI  TELN  (’MULTI  PLE  CHOICE/MULTIPLE  ANSUER  C, 

1 TEMINFO. ANSUERCOUNT, '  answers!’); 

ENO;  (*  cases  e) 

IF  l TEMINFO. ATYPE  <>  INTVALUE  THEN 
UR  I TELN (‘Ansuer  range  ;  * , I TEMINFO. LOUANSUER, 

I TEMINFO. HIGHANSUFR) ; 

UR  I  TEC  Ansuer  :  ’); 
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CASE  I  TENINFO. ATYPE  OF 
CHARVALUE  :  UR l TELN d TEH INFO. ANSUER ) ; 

INTVALUE  :  UR I TELN (1  TEH INFO.  INTANSUER) ; 

SEVENCHR  :  BEGIN  (II 

FOR  I  1  TO  ITEHINFO.ANSUERCOUNT  DO 
URITE(ITEHINFO.CHRANSUERd)  ,  *  * » j 
UR I TELN; 

END;  (1) 

END;  («  cases  «) 

UR1  TE  (’Graphics  Flag  :  '); 

IF  NOT  I  TEfl  INFO.  GRAPH  ICS  THEN 
WRITELNCOFF’ ) 

ELSE 

IF  I TENINFO. DUNN Y1  -  COT1PRESSED  THEN 
UR I TELN ( ’ COMPRESSED  ON’) 

ELSE 

URITELNCFOTOFILE  ON'It 

UR1 TELN (’Block  which  text  begins  :  ’ , I TENINFO. ITEHBLOCK) : 
URJ  TELN (' Byte  in  block  :  ’ ,  I  TENINFO.  I  TEflPTR) ; 

UR I TELN; 

UR I TELN; 

STALL; 

END;  (*  shouinfo  *) 


(*  displays  i tee  text  and  data  *) 

PROCEDURE  SHOU1 TEH; 

VAR  I  :  INTEGER; 

BEGIN 

IF  I  TEH  UFO.  GRAPH  ICS  THEN 
BEGIN  (1) 

FILLPORT; 

GOECOOEPRINT (CURRINOEXRECNUN, DIRECTORY. I TENCODE [SLOT] ) ; 
PAGE (OUTPUT): 

GGOTOXY (0.20) ; 

GURITESTRCItee  code  :  ’); 

GURI TE I  NT (D I  RECTORY. I TENCOOE [SLOT] ) ; 

GGOTOXY (0,21); 

GIFITESTRC Answer  :  ’); 

CASE  I  TEN  UFO.  ATYPE  OF 
CHARVALUE  :  GURI  TECHRdTENINFO.  ANSUER) ; 

INTVALUE  :  CUR I TE l NT (l TEN INFO. INTANSUER) ; 

SEVENCHR  :  BEGIN  (2) 

FOR  I  1  TO  I  TEN INFO. ANSUERCOUNT  00 
BEGIN  (3) 

GUR I TECHR ( l TEN l NFO . CHR ANSUER (II ) ; 
GURITECHTC  *); 

END;  (31 
ENO;  (2) 

END;  («  cases  «) 

GGOTOXY (0,23): 

GST ALL; 

TEXTON; 

ENO  111 
ELSE 

BEGIN  (4) 

(*  print  the  text  *) 

DECOGEPR I NT (BLOCK . BLOCKPTR) ; 

(*  show  i tee  code  *) 

IF  PCRECNUN  THEN 
GOTOXVI0.23) 

ELSE 

GOTOXY (0,23) ; 

URI  TEC  I  tee  code  :  ’  .OIRECTORY.  I  TENCODE  (SLOT) ) ; 

IF  PCRECNUN  THEN 
GOTOXY <2S, 23) 

ELSE 

GOTOXY (0.21); 
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URITECAnsuer  :  '); 

IF  PCRECNUH  THEN 
CASE  ITEniNFO.ATYPE  OF 
CHAR VALUE  :  URI TE (I TEMINFO. ANSWER) s 
I  NT VALUE  :  URI TE  1 1 TEMINFO. INTANSUER) j 
SEVENCHR  :  BEGIN  <501 

FOR  I  1  TO  I  TEN INFO. ANSUERCOUNT  DO 
URI  TE  (1TEHINFO.CHRANSUER  II) ,  ’  * )  s 
END;  (50) 

END  (*  cases  *) 

ELSE 

CASE  ITEniNFO.ATYPE  OF 

CHARVALUE  :  URI TELN( I TEniNFO. ANSUER) i 
INTVALUE  :  UR  I TELN( I TEniNFO. I  NT ANSUER): 

SEVENCHR  :  BEGIN  (51 

FOR  I  1  TO  I TEniNFO. ANSUERCOUNT  DO 
URI  TE(  I  TEniNFO.  CHRANSUER  Ill , '  *); 
URI TELNj 
END:  (5) 

END;  (*  cases  *) 

GOTOXY (0,23) ; 

IF  PCRECNUn  THEN 
GOTOXY (45. 23); 

STALL; 

END;  (4) 

END;  (*  ehouite*  *) 


(*  delete  a  question  froe  the  directory  *) 

PROCEDURE  DELETE I  TEH; 

VAR  I.Z  :  INTEGER; 

BEGIN 

(«  veri fy  actions  *) 

PAGE (OUTPUT) ; 

GOTOXY (1G. 2); 

UR I TE( ***********  UARNING  **********’); 

URITELN; 

URITELN; 

URITECYou  have  selected  the  delete  question  option.'); 

URITELNC  This  will  reeove  the  question'); 

URITELNC  fro*  the  subtest  iteapool.  Are  you  sure  you  uant  to  delete 
DIRECTORY. I TEHCODE [SLOT],'  ?'); 

GOTOXY (1G. 8); 

URI TE( 'Press  "N”  or  "V”  ;  '); 

IF  GETCHAR(CY','N'.'y’.'n’]. TRUE, FALSE. TRUE)  IN  I’Y'.’y')  T)CN 
BEGIN  (II 
URITELN; 

URITELN; 


(*  display  something  happening  *) 
URI TE ('Del  sting’ ) ; 

FOR  I  t-  1  TO  500  DO 

IF  I  riOO  50  -  0  TFEN  IRITEC.’I; 


(*  Mark  slot  as  unused  *) 
DIRECTORY. I TEHCOOE (SLOT)  x-  NIL* 


(*  update  the  directory  to  file  *) 

UPDATED1 RECTORY  (CURRINDEXRECNUH) ; 

Z  DIRINFO(CURRINOEXRECNUfl) .  ITEHCOUNT; 

OIRINFO (CURfilNOEXRECNUH) .  ITEHCOUNT  t-  Z  -  1; 

PAGE (OUTPUT); 

GOTOXY (17, 01 ; 

URITELNC********  IMPORTANT  ********* ) ; 

URITELN; 

UR I TELN ( 

Since  you  have  deleted  a  question  fro*  the  subtest  database,  this  *ay  ’); 
URI TELN ( 
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'affect  the  strategy  database  structures.  The  strategy  database  may  contain'); 
URITELN( 

'the  item  just  deleted  and  if  so,  errors  may  occur  during  teat  administration’); 
URITELNI 

'when  the  strategy  selects  a  question  not  in  the  itempool.  Thus  to  make  sure’); 
URITELNI 

•your  strategy  data  is  still  OK,  you  should  run  the  "Verify”  option  for'); 
URITELNi 

'each  strategy  data  structure  this  eubtest  has.'); 

URITELN; 

URITELN; 

STALL; 

EXIT (FETCHI TEH) ; 

END;  (1) 

END;  (*  delete  *) 


( - - - - -) 

(*  modify  different  things  about  a  question  «) 

PROCEDURE  MOOIFYITEM; 

VAR  COMMAND  :  CHAR; 

( . ) 


(«  display  option  menu  *) 

PROCEDURE  MOOMENU; 

BEGIN 

TEXT80MOOE: 

NORMAL; 

GOTOXY (20,0) ; 

URITECMOGIFY  QUESTION  MENU'); 

GOTOXY (0.4); 

URI TECSelect  one  of  the  following  options  by  entering  its  number.’); 
GOTOXY (0.8); 

IFITECCurrently  modifying  question  ’.COOENlfl); 

GOTOXY  (16. 10); 

UUTECl.  QUIT'); 

GOTOXY(16.11); 

URITEC2.  CHANGE  QUESTION  COOE'); 

GOTOXY (16, 12); 

URI  TEC  3.  CHANGE  QUESTION  TEXT’); 

GOTOXY (16, 13) ; 

URITEC4.  CHANGE  ANSWER  RANGE*); 

G0T0XY(16,14) ; 

IDITECS.  CHANGE  ANSUER’); 

GOTOXY (16. IS); 

URITEC6.  CHANGE  QUESTION  DATA'); 

GOTOXY (16. 19); 
lUITECEnter  Choice  #  :  ’); 


END;  (*  modmenu  *) 

{ - - - - - 1 


(e  allows  change  of  id  codes  *) 

PROCEDURE  GETNEUIO; 

VAR  fCUIO. 

OCCKSLOT  :  INTEGER; 

COOEOK  :  BOOLEAN; 

BEGIN 

PAGE  (OUTPUT); 

URITELN; 

URITELNCThe  current  question  id  code  is  t 
DIRECTORY.  I  TEMCOOE  (SLOT) ) ; 

COOEOK  :■  FALSE; 

REPEAT  («  get  cods  not  previously  used  m) 

URITELN; 

URITECEnter  the  new  identification  code  and  then  press  <RET>  :  ’); 
READLN (NEUIO) ; 

IF  NEUIO  >-  0  THEN 
BEGIN  111 

DIRECTORY. I TEMCOOE (SLOT)  NIL; 

CHECKSLOT  SLOTSEARCH(NEUID) ; 

IF  CHECKSLOT  <>  NIL  THEN 
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BEGIN  (2) 

URITELN; 

URITELN (’Code  U  ’.NEUIO,’  previously  used  !’); 

URITELN; 

SQUAWK; 

EtflD  (2) 

ELSE 

CODE OK  s-  TRUE; 

END  111 
FLSF 

BEGIN  13) 

SQUAWK; 

URITELN; 

URITELNI’Id  U  must  be  a  positive  nueber.’); 

URITELN; 

ENO;  <31 
UNTIL  COOEOK; 

DIRECTORY.  1 TEMCOOE  (SLOT)  NEUID; 

UR1 TELN; 

URITELNCThe  neu  id  *  is  s  ’.f£UIO); 

COOENUn  NEUID; 

URITELN; 

URITELN; 

URITELN; 

URITELN!’  ********  IMPORTANT  ********'  >; 

URITELN; 

URITELN! 

’Since  you  have  changed  the  question  id  code,  this  nay  affect  the  strategy*); 
URITELN! 

'database  structures.  The  strategy  database  eay  contain  the  i tee  just*); 
URITELN! 

’changed  and  if  so,  errors  eay  occur  during  test  adeini strat ion  when  the*); 
URITELN! 

’strategy  selects  a  question  no  longer  identified  by  its  old  id  ft.  Thus  to’) 
URITELN! 

’sake  sure  your  strategy  data  is  still  OK,  you  should  run  the  ’’Verify”  '); 
URITELN! 

’option  for  each  strategy  data  structure  this  subtest  has.’); 

URITELN; 

URITELN; 

STALL; 

UPDATED I RECTORY (CURRINDEXRECNUM) ; 

ENO;  («  getneuid  *) 


(e  change  the  question  text  «) 
PROCEDURE  CHANGETEXT; 

VAR  MOOPTR, 

MOOBLOCK  ;  INTEGER; 
ENDTEXT  i  BOOLEAN; 


!«  reads  i tee  text  file  8  displays  page  *) 
PROCEDURE  PAGE PRINT  (VAR  LASTPAGE  ;  BOOLEAN 
VAR  X, 

Y. 

SCREENBYTES, 

CHARCOOE , 

SKI PBYTE  s  INTEGER; 


I*  returns  next  code  in  itee  file  *) 
FUNCTION  BUFFERCOOE  i  INTEGER; 

BEGIN 

BUFFERCOOE  s-  TRIX. ASCI IBUF  IMOOPTR) ; 
MOOPTR  s-  MOOPTR  +  1; 

IF  MODPTR  >  2047  THEN 
BEGIN  III 

MODBLOCK  MOOBLOCK  +  4; 

READ1 TEM8L0CK (MOOBLOCK) ; 
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ttOOPTR  8; 

END;  (1) 

E(C;  (*  buffercode  *) 

( . I 

BEGIN  (*  page  print  «) 

SCREEN8YTES  s-  (XSCREEN  ♦  1)  «  (YSCREEN  +1); 

F I LLCHAR (SCREEN  [03  .SCREEN YTES.  *  * ) ; 

SETSCREEN; 

READI TEHBLOCK (MOOBLOCK) ; 

REPEAT 

CHARCOOE  BUFFERCODE; 

CASE  CHARCOOE  OF 
GOTOFLAG  s  BEGIN  (11 

X  BUFFERCODE; 

Y  t-  B'JFFERCOOE; 

GOTOXY (X, Y) ; 

(*  skip  next  byte,  this  uas  an  easy  May  *) 

(*  to  get  around  the  codification  of  thee) 

(e  ascii  file,  where  an  extra  byte  uas  e) 

(e  used  to  store  the  U  of  characters  pers) 

(e  I ine.  e) 

SKI PBYTE  BUFFERCOOE; 

END;  (1) 

PAGEFLAG  :  ; 

ENOITEM  :  ; 

END;  (e  cases  e) 

IF  (CHARCOOE  >-  32)  AND  (CHARCOOE  <-  126)  THEN 
BEGIN  (2) 

SCREEN IX, Y1  CHR (CHARCOOE); 

X  X  +  1; 

WRITE (CHR (CHARCOOE)); 

END;  (2) 

UNTIL  (CHARCOOE  -  END I  TEH)  OR  (CHARCOOE  -  PAGEFLAG); 

IF  CHARCOOE  -  END I  TEH  THEN 
LASTPAGE  TRUE 
ELSE 

LASTPAGE  FALSE; 

END;  (e  page  print  e) 

( . ) 


BEGIN  (e  change  text  e) 

(e  get  pointers  to  free  space  in  file  e) 

LOADPTRS; 

(e  get  pointers  to  text  being  eodified  e) 

HOOBLOCIC  t-  ITEHINFO.ITEHBLOCK; 

HOOPTR  I.  I TEHINFO. I TEHPTR; 

(e  save  ptrs  to  beginning  of  neu  codified  text  *) 

I TEHINFO. I TEHBLOCK  CURRBLOCK; 

I TEHINFO. I TEHPTR  CURRFREEPTR; 

BLOCK  CURRBLOCK; 

BLOCKPTR  s-  CURRFREEPTR; 

(e  change  the  text  page  by  page,  if  page  is  not  codified,  then  •) 
(*  write  it  out  as  is.  e) 

REPEAT 


(*  display  the  text  being  codified  e) 
PAGEPRINT (ENOTEXT) ; 

(*  edit  the  screen  buffer  *) 

F 1 LLSCREENBUFFER ( TOPHAX , R I GHTHAX , 

BOT TOHHAX , LEF THAX , FALSE ) ; 


186 
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{«  if  it  ie  not  the  end  of  the  text  then  urite  current  page  «> 
(«  to  block  buffer  to  file.  *) 

IF  NOT  (ENOTEXT)  THEN 
COOESCREEN (FALSE); 

UNTIL  ENOTEXT; 


(«  urite  last  page  to  buffer  then  to  file  *) 

COOESCREEN (TRUE); 

(*  save  location  of  next  place  to  put  text  *) 

SAVEPTRS; 

EM);  (*  change  text  «) 

I- - - - - ) 

(*  change  the  ansuer  selection  range  data  •) 

PROCEDURE  CHANGER ANCE; 

VAR  LBOUND. 

H80UND  :  CHAR; 

ERR  :  BOOLEAN; 

BEGIN 

(•  display  the  question  •) 

OECOOEPRINT  (BLOCK, BLOC.KPTR) ; 

(«  get  neu  ansuer  range  e) 

GOTOXY (0.20) ; 

UR  I TELNC  Current  range  ;  \l  TEHINFO. LOUANSUER,  * . .  * . 

I  TEHlfFO.  HI  GHANSUER) ; 

URITECNeu  I ou  bound?  (letter/digit)  t  '); 

LBOWC  GETCHAR(C0’..’9’,’A’..rZ’l,TRUE.TRUE,TRUE); 

URITELN; 

URITECNeu  high  bound?  (letter/digit)  :  '); 

HBOUNO  GETCHAR(  1*0’ . .  ‘9* ,  ’A’ . .  I ,  TRUE, TRUE.  TRUE) ; 

ERR  FALSE; 

IF  (HBOUNO  IN  1*0* . .  *3*1 )  THEN 
IF  NOT  (LBOUND  IN  l’0*..’9’)>  THEN 
ERR  TRUE; 

IF  (HBOUfO  IN  l’A’..’Z’n  THEN 
IF  NOT  (LBOUND  IN  ('A'..'Z’])  THEN 
ERR  TRUE; 

IF  ERR  T)CN 
BEGIN  (II 

BLAf*LINES(20,4,20); 

URITELN (’Bounds  range  type  eiseatch  error!’); 

SOU AUK; 

URITELN; 

STALL; 

EXIT(CHANGERANGE) ; 

END;  (1) 

IF  ORO (LBOUND)  >  ORO(HBOUND)  THEN 
BEGIN  (2) 

BLANKLINES (20. 4, 20); 

URITELNCLou  bound  exceeds  high  bound  error!’); 

SOU AUK; 

UUTELN; 

STALL; 

EXIT(CHANGERANGE); 

END;  (2) 

I  TEH I NFO. H I GHANSUER  HBOUNO: 

I  TEH I NFO . LOUANSUER  LBOUND; 

BLANKLINES (20, 4, 20); 

URI  TELNC  The  neu  range  is  :  ’,  ITEHINFO.  LOUANSUER, . 

I  TEH I NFO. HI GHANSUER); 

URITELN; 

STALL; 

END;  («  changerange  *) 
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PROCEDURE  CHANGE ANSUER: 
VAR  BOUND. 

SELECT  :  CHAR; 

I  :  INTEGER: 

I . 


(«  get  the  new  answer  *) 

PROCEDURE  GET ANSUER; 

BEGIN 

SELECT  GETCHARI  l*  1’ . .  ’3‘ )  .TRUE, TRUE, TRUE) ; 

PAGE (OUTPUT) ; 

CASE  SELECT  OF 
•1*  :  BEGIN  III 

GOTOXY  (22,0) : 

UR  l  TEC  MULTIPLE  CHOICE/SINGLE  ANSUER' ) : 
ITEMINFO.ATYPE  CHAR VALUE: 

GOTOXY (0.6): 

URITECEnter  new  answer  and  then  press  <RET>  :  ’); 

F I LLBUF  <  1 .  ( I TEMI  )FO.  LOUANSUER. .  I  TEMI NFO. HI GHANSUER1 
TRUE): 

ITEMINFO. ANSUER  LINEBUF [0] ; 

LINEBUF (0) 

END;  (1) 

*2'  :  BEGIN  (2) 

GOTOXY (22,0); 

URITEC  INTEGER  VALUE  ANSUER’  >: 

ITEMINFO.ATYPE  :-  INTVALUE; 

GOTOXY (0,6); 

URITECEnter  new  answer  (integer 

’value)  and  then  press  <RET>  :  *); 

REAOLN(l): 

I TEMINFO. INTANSUER  I: 

END;  (21 
*3'  :  BEGIN  13) 

GOTOXY (22,0); 

URITE ('MULTIPLE  CHOICE /MULTIPLE  ANSUERS'); 
ITEMINFO.ATYPE  SEVENCW; 

GOTOXY (0,6); 

URITECEnter  the  number  of  answers’, 

*  this  question  has  (1..7)  :  ’); 

SELECT  :-  GETCHARI C 1’ .. '7') . TRUE.JRUE. TRUE) ; 

I  TEMINFO.  ANSUERCOUNT  ORD (SELECT)  -  48; 

URITELN; 

URITELN; 

FOR  I  i-  1  TO  I  TEMINFO. ANSUERCOUNT  DO 
BEGIN  (4) 

URITECEnter  answer  *,!,*,  then  press  <RET>  t  ’); 
FILLBUF  (1, 

II TEMINFO. LOUANSUER. . I TEMINFO. HI GHANSUER) 
TRUE); 

1 TEMINFO. CHRANSUER (II  »-  LINEBUF 101; 

LINEBUF (0)  s-  ’  ’; 

URITELN: 

END;  (4) 

END;  (31 
END;  (*  cases  *) 

END:  (*  get  answer  *) 


BEGIN  (e  change  answer  *) 

OECOOEPR I NT (BLOCK , BLOCKPTR) ; 

GOTOXY (0,20); 

URI TE (’Current  answer(s)  t  ’); 

CASE  ITEMINFO.ATYPE  OF 
CHARVALUE  :  URITELN (l TEMINFO. ANSUER); 

INTVALUE  :  URI TELN( I TEMINFO. INTANSUER) ; 

SEVENCHR  :  BEGIN  (I) 

FOR  I  :-  1  TO  I TEMINFO. ANSUERCOUNT  DO 
URITE (I TEMINFO. CHRANSUER I I).'  ’); 
URITELN: 
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ENO;  (*  cases  *) 

URITELN; 

STALL: 

TEXT80MOOE; 

GOTOXY (20,8) ; 

UR  1  TEC  SELECT  ANSUER  TYPE’): 

GOTOXY (0,4); 

URITECSelect  one  of  the  following  options  by  entering  its  nunber .  ’ ) : 
GOTOXY (IS. 8); 

URITECl.  MULTIPLE  CHOICE/SINGLE  ANSUER* ) : 

GOTOXY (IS, 9): 

URITEC2.  INTEGER  VALUE  ANSUER*): 

GOTOXY (16, 10); 

URITEC3.  MULTIPLE  CHOICE /MULTIPLE  ANSUERS*); 

GOTOXY (16, 14) ; 

URITECEnter  Choice  U  :  ’); 

GETANSUER; 

URITELN: 

URITELN: 

URI  TEC  The  new  answer  (s)  is  :  *); 

CASE  ITEMINFO.ATYPE  OF 

CHARVALUE  :  URITELN (ITEM INFO. ANSUER); 

INTVALUE  :  URI TELN( I TEMINFO. INTANSUER) : 

SEVENCHR  :  BEGIN  (2) 

FOR  I  :*  1  TO  I TEMINFO. ANSUERCOUNT  DO 
URI  TE  (ITEMIfFO.CHRANSUER t!) , *  ’>: 

URITELN: 

END;  (21 
ENO;  (*  cases  e) 

URITELN; 

STALL; 

ENO;  (a  changeanswer  *) 

( . . . - . I 

(«  change  question  data  *) 

PROCEDURE  CHANGEDATA; 

VAR  SELECT  :  CHAR; 

BEGIN 

REPEAT 

PAGE (OUTPUT); 

GOTOXY (20,0); 

URITECCHANGE  QUESTION  DATA  MENU*); 

GOTOXY (0.4); 

URITECSelect  one  of  the  following  options*, 

'  bu  entering  its  nuaber.*); 

GOTOXY (0.6); 

URI  TEC  Current  data  :  '); 

GOTOXY (15,6); 

URI  TEC  A  paraaeter  -  * ,  ITEMIhF0.A:S:3) ; 

G0T0XYU5.7) ; 

URITECB  paraaeter  »  *,ITEMINF0.B:5:3); 

GOTOXY (15. 8); 

URITECC  paraaeter  -  ’ .  ITEMINFO.C:5:3) ; 

GOTOXY (16. 12); 

URITECl.  QUIT*); 

GOTOXY  (16. 13); 

URI  TEC  2.  CHANGE  PARAMETER  A*); 

GOTOXY (16. 14); 

urite(*3.  change  parameter  B*); 

GOTOXY (16, 15); 

URITEC4.  CHANGE  PARAMETER  C’); 

GOTOXYU6.18): 

URITECEnter  Choice  It  :  ’); 

SELECT  :-  GETCHAR ( C 1* .. *4*1 , TRUE, TRUE. TRUE) ; 

CASE  SELECT  OF 
•1*  :  ; 

*2*  :  BEGIN  (1) 

GETPARAMC  A* ) ; 

I TEMINFO. A  :-  AVALUE; 

ENO;  (1) 

*3*  :  BEGIN  (2) 

GETPARAMCB* ) ; 
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ITEMINFO.B  B VALUE; 

END:  (2) 

•4’  :  BEGIN  131 

GETPARAHCC*); 

ITEMINFO.C  CVALUE; 

END:  (31 
END;  (*  cases  *) 

UNTIL  SELECT  -  *1*: 

END:  (*  changedata  *) 

{ . 

BEGIN  (*  nodifu  *) 

REPEAT 

HOOnENU: 

COMMAND  GETCHARI  l*  1* . .  ‘B'l  .TRUE,  TRUE, TRUE) : 
CASE  COm AND  OF 
'I'  :  : 

*2*  :  GETNEU1D: 

*3’  :  CHANGETEXT; 

*  ’  :  CHANGERANGE; 

’5*  t  CHANGEANSUER; 

•B*  :  CHANGEOATA; 

END:  I*  cases  *) 

UNTIL  COMMAND  -  *1*: 

(*  update  data  record  to  file  *) 

UPDATE I TEMFILE (DATASLOT) ; 

END:  (*  Modify  *) 


BEGIN  («  fetch  i tee  «) 

PAGE (OUTPUT): 

PCRECNUM  (CURR I NOEXRECNUM  -  4)  OR  (CURRI NDEXRECNUM  -  B); 

(»  is  current  test  PC  or  PC-2  *) 

(«  get  iteM  code  to  fetch  «) 

COOEOK  FALSE; 

REPEAT 

URITE(‘Enter  the  question  code,  then  press  <RET>  :  ’); 
(«>I-*) 

REAOLN(COOENUM) ; 

(*«!+*) 

(«  if  valid  code  0  >■  0  *) 

IF  COOENUH  >-  0  THEN 
BEGIN  (1) 

SLOT  i.  SLOTSEARCH (COOENUM); 

(*  if  code  0  does  not  exist  in  subtest  directory  e) 

IF  SLOT  -  NIL  THEN 
BEGIN  (2? 

URITELN; 

URITELN (’No  i  tee  uith  code  0  *  .COOENUM); 

SOU  AUK; 

UR I TELN; 

STALL: 

EXIT(FETCHITEM); 

END  12) 

ELSE 

COOEOK  TRUE; 

END  ID 
ELSE 

BEGIN  13) 

SQUAWK; 

URITELN: 

URITELNCId  0  Must  be  a  positive  nuaber.’); 

URI TELN; 

STALL; 

EXIT(FETCHITEM) ; 

END;  13) 
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UNTIL  COOEOK; 

(«  get  location  of  data  *) 

DATASLOT  HASH (SLOT); 

PAGE  (OUTPUT) ; 

(«  get  the  data  «) 

RESET (F I LE I TEM I NFO , DATANAME ) ; 

SEEK (F I LE I  TEH I NFO , DATASLOT ) ; 

GET  (FI  LE  I  TEM  I  NFO) ; 

I  TEM  I  NFO  FI  LEI  TEM  INFO''; 

CLOSE  (F I LE I TEM I NFO . LOCK ) ; 

BLOCK  ITEMINFO. ITEMBLOCK; 

BLOCKPTR  ITEMINFO. I TEMPTR; 

(«  allow  various  options  *) 

REPEAT 

ITEMMENU; 

COMMAND  GETCHAR ( I* 1* .. ’6* 1 . TRUE, TRUE. TRUE) ; 
CASE  COMMAND  OF 
T  :  ; 

•2'  :  SHOUITEM; 

•3*  :  SHOUJNFO; 

*4*  :  MODI FYI TEM; 

•5*  :  OELETEITEM; 

’6’  :  BEGIN  (4) 

SETGFLAG; 

(*  update  data  record  to  file  e) 
UPOATEI TEMFI LE (OATASLOT) ; 

END;  14) 

END;  (*  cases  *) 

UNTIL  COMMAND  -T; 

END:  («  fetch  i tee  *) 


(*  loads  a  test  ,  allows  various  options  */ 
SEGMENT  PROCEDURE  FETCHTEST; 

VAR  COMMAND  :  CHAR; 


(«  displays  coeeand  selection  for  fetch  test  *) 

PROCEDURE  FETCHMENU; 

BEGIN 

TEXT80HOOE; 

NORMAL; 

GOTOXYI20.0); 

UR  I  TEC  FETCH  SUBTEST  MENU'); 

GOTOXY (0,4) ; 

URITECSelect  one  of  the  following  procedures  by  entering  ite  nuaber.’) 
GOTOXY (8. 6); 

URITECCurrently  Banaging  subtest  :  ’  .DIRECTORY. TESTNAME) ; 

GOTOXY (IS. 9) ; 

URITECl.  QUIT*); 

GOTOXY (IS. 18); 

URITEC2.  ADO  NEU  QUESTION’); 

GOTOXY (IB. 11); 

URITEC3.  FETCH  A  QUESTION' ) ; 

GOTOXY (IB. 12); 

URITEC4.  LIST  SUBTEST  QUESTIONS’); 

GOTOXY (16. 13); 

URITEC5.  SAMPLE  QUESTION  MANAGEMENT ') ; 

GOTOXY (IB. 14); 

URITEC6.  SUBTEST  INSTRUCTIONS  MANAGEMENT’ ) ; 

GOTOXY (16, 18); 

URITECEnter  Choice  ft  ;  ’); 


BEGIN  <«  fetchtest  «) 
REPEAT 


7  T 
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FETCHMENU; 

COMMAND  GETCHAR(  IT . .  ’S’  1 ,  TRUE.  TRUE.  TRUE)  j 
CASE  COMMAND  OF 

•r  :  : 

•2’  :  INSERTITEM: 

'3'  :  FETCHITEM: 

*4’  :  L1STI TEMSs 
’5*  :  SAMPLEQUESTIONSj 
•S’  :  INSTRUCTIONS! 

END;  (*  cases  «) 

UNTIL  COMMAND  -*l*t 
ENOi  (*  fetch  test  *) 


19? 
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*  *) 

*  Textfile  :  TMGR.OIR/T. INSTR. TEXT  Volume  :  TFILES  e) 

*  Codefile  :  T. MGR. CODE  (’ Include’  file)  Volume  t  CATDATA  *) 

*  *) 

*  File  last  modified  :  Feb  18,  1983  NPRDC  *) 

tfttttt  ■■■»**«*»  ***'**»»***'«»»*«,*»***»  »»*’***♦'*'****♦*****♦♦  ********************^ 


SEGMENT  PROCEDURE  INSTRUCTIONS: 

VAR 

HASH  LX  :  INTEGER-. 

COMMAND  :  CHAR: 

. . » 

PROCEDURE  MENU; 

BEGIN 

TEXT80MOOE; 

NORMAL; 

GOTOXY (20,0) ; 

UR  I  TEC  SUBTEST  INSTRUCTIONS  r€NU’); 

GOTOXY  (0,4) ; 

URITECSelect  one  of  the  following  procedures  by  entering  its  number.’); 
GOTOXY (16,8) ; 

URITECl.  QUIT’ ) ; 

GOTOXY (16,9) ; 

UR1TEC2.  ENTER  INSTRUCTIONS’ ) : 

GOTOXY (16, 10); 

URITEC3.  VIEU  INSTRXT10NS’ ) : 

GOTOXY (16,11) ; 

URITEC4.  MOOIFY  INSTRUCTIONS’ is 
GOTOXY (16, 12) ; 

UR1TECS.  OELETE  INSTRUCTIONS’ ) ; 

GOTOXY (16. 16); 

URITE (’Enter  Choice  Us  ’); 

END;  (*  menu  *) 

I - - - i 

PROCEDURE  ENTERJNSTRUCTIONS; 

BEGIN 

IF  DIRECTORY. I TEMCOOE (01  >  0 
THEN 

BEGIN  (II 

PAGE (OUTPUT) ; 

URITELN; 

URITELNCSubtest  instructions  already  exist.’); 

URITELN; 

SOU AUK I 
STALL; 

EX  1 T  (ENTERJ  NSTRUCT  IONS); 

END:  (II 

DIRECTORY.  I TEM.COOEIB)  1; 

LOAOPTRS; 

ITEM  INFO.  1TEM_PTR  CURR  FREE_PTR; 

ITEM_INFO.ITEM_BLOCK  CURRJBLOCK; 

FILL  SCREEN  BUFFER (TOP  MAX,  RIGHT  MAX,  BOTTOM J1AX,  LEFTJ1AX,  TRUE); 
COOEIsCREENTTRUE) ; 

SAVE.PTRS; 

UPDATE  DIRECTORY  (CURR  INDEX _RECJ01); 

HASHJ.X  HASH (0) ; 

UPOA  TE_I  TEM_F  I LE  (HASH_LX ) ; 

END;  (*  enter  instructions  *) 

I . - . - . - . . . ) 

PROCEDURE  MOOIFYI NSTRUCT IONS; 

VAR  MOOPTR, 

MOOBLXK, 

XDPTR, 
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OLDBLOCK, 

BLOCK, 

BLOCKPTR  :  INTEGER; 

ENOTEXT, 

RECODE, 

DONE  :  BOOLEAN; 

( . ) 


(*  reads  i tee  text  file  &  displays  page  *) 

PROCEDURE  PAGEPRINT (VAR  LASTPAGE  :  BOOLEAN); 

VAR  X. 

Y, 

SCREEN8YTES, 

CHARCOOE, 

SKI PBYTE  «  INTEGER; 

< . ) 

(«  returns  next  code  In  i tea  file  *) 

FUNCTION  BUFFERCOOE  :  INTEGER; 

BEGIN 

BUFFERCOOE  TRIX. ASCI IBUF tMOOPTR) ; 

MOOPTR  MOOPTR  +  1; 

IF  MOOPTR  >  2047 
THEN 

BEGIN  (1) 

MOOBLOCK  I-  MOOBLOCK  4; 

RE ADI TEMBLOCK (MOOBLOCK) ; 

MOOPTR  0; 

END;  (1) 

END;  (s  buffercode  *) 

( . ) 

BEGIN  («  page  print  «) 

SCREENBYTES 

(XSCREEN  ♦  1)  *  (YSCREEN  ♦  1); 

F I LLCHAR (SCREEN  10] .SCREENBYTES,’  ’>; 

SETSCREEN; 

READ1 TEMBLOCK (MOOBLOCK) ; 

REPEAT 

CHARCOOE  BUFFERCOOE; 

CASE  CHARCOOE  OF 
GOTOFLAG  :  BEGIN  III 

X  BUFFERCOOE; 

Y  BUFFERCOOE; 

SKIPBYTE  BUFFERCOOE; 

GOTOXY (X, Y) ; 

ENO;  III 
PAGEFLAG  :  ; 

ENO ITEM  :  ; 

END;  (e  cases  ») 

IF  (CHARCOOE  >-  32)  AND  (CHARCOOE  <-  126) 

THEN 

BEGIN  (21 

SCREEN IX, Y)  :■  CHR( CHARCOOE); 

X  :»  X  +  1; 

URITE (CHR (CHARCOOE)); 

ENO;  (2) 

UNTIL  (CHARCOOE  -  ENO I TEM)  OR  (CHARCOOE  -  PAGEFLAG); 

IF  CHARCOOE  -  ENO I TEM 
TtEN 

LASTPAGE  TRUE 

ELSE 

LASTPAGE  FALSE; 

EM);  (*  page  print  *) 
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BEGIN  («  modify  instructions  s) 

IF  DIRECTORY.  I TEMCODEI01  <  8 
THEN 

BEGIN  ID 

PAGE (OUTPUT ); 

URITELN; 

URJTELNCNo  instructions  to  modify . ’); 

URITELN: 

SOU AUK; 

STALL; 

EXIT (MOOIFYINSTRUCTIONS) ; 

END;  ID 


HASH_LOC  :  -  HASH  (0) ; 

RESET  (FILEI TEMINFO, DATANATE ) : 

SEEK  (F I LE I TEM I NFO .  HASHJ.0C ) ; 

GET (FILE! TEMINFO): 

I TEMINFO  FILE! TEMINFO"; 

CLOSE (F I LE I TEM 1 NFO . LOCK ) ; 

PAGE (OUTPUT) ; 

URITELN: 

URI TE ( 'Change  instruction  text?  Press  "N”  or  ’'Y**  :  *); 

IF  GETCHARd'y', 'o'. 'Y'.'N'), TRUE. TRUE, TRUE)  IN  CY'/y*] 
THEN 

BEGIN  12) 

LOADPTRS; 

MOOBLOCK  I TEMIMO.  I TEMBLOCK; 

MOOPTR  ITEMIfFO.  ITETPTR; 

(*  save  ptrs  to  beginning  of  text  «) 

ITEMINFO. ITEMBLOCK  CURRBLOCK; 

I TEMINFO. ITEMPTR  CURRFREEPTR; 

(*  save  old  ptrs  to  delete  old  text  *) 

OLOBLOCK  MOOBLOCK; 

OLOPTR  MOOPTR: 

BLOCK  CURR8L0CK; 

BLOCKPTR  CURRFREEPTR, 

RECOOE  TRUE; 


V-V- 


REPEAT 

PAGEPRINT (END TEXT); 

F I LLSCREENBUFFER ( TOPMAX ,  RIGHTMAX,  BOTTOMMAX,  LEFTMAX.  FALSE); 

IF  NOT  (ENOTEXT)  T>€N  COOESCREEN (FALSE ) ; 

UNTIL  ENOTEXT; 

END  (2) 

ELSE 

RECOOE  FALSE; 

IF  RECOOE 
THEN 

BEGIN  (3) 

COOESCREEN (TRUE); 

SAVEPTRS; 

END;  (3) 

UPDATE  I TEMF I  LE  (HASH.LOC ) ; 

EM);  (*  modify  instructions  «) 

I - - - - - - - - - 1 

PROCEDURE  VIEUINSTRUCTIONS; 

VAR  BLOCK. 

BLOCKPTR  :  INTEGER; 

BEGIN  («  view  instructions  e) 

IF  DIRECTORY.  I TEMCOOEIB)  <  0 
THEN 

BEGIN  ID 
PAGE  (OUTPUT); 

URITELN, 

URITELNI’No  instructions  to  view . ’); 

URITELN; 

SOU AUK; 


195 
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STALL: 

EXIT  IV I EU INSTRUCT IONS) : 
END;  fl) 

HASH.LOC  HASHI0) : 

RESET (F I LE I TEMI NFO, OATANAME) ; 
SEEK  (FILE I TEMI NFO, HASH JLOC ) ; 

GET (FILEITEMINFO) : 

ITEMINFO  FILEITEMINFO^: 

CLOSE  (FILEITEMINFO, LOCK ) : 

BLOCK  I TEMINFO. I TEM8L0CK; 
BLOCKPTR  I TEMINFO. I TEMPTR; 

DECODE PR I  NT (BLOCK . BLOCKPTR) : 
GOTOXY (0,21) ; 

STALL: 

ENO;  (*  view  instructions  *) 


PROCEDURE  DELETE INSTRUCT  IONS: 

VAR  I , HASHLOC  :  INTEGER: 

BEGIN 

IF  DIRECTORY.  I TEMCOOEI0]  <  0 
THEN 

BEGIN  (1) 

PAGE (OUTPUT) : 

URITELN; 

URITELNCNo  instructions  to  delete . *); 

URITELN; 

SOU AUK; 

STALL; 

EXIT (OELETEINSTRUCTIONS) ; 

END;  III 

PAGE (OUTPUT); 

GOTOXY (IS. 0); 

UR  I TE  ('****«»*»  UARNING  ttwmw): 

GOTOXY (0.3); 

URITELNCYou  have  selected  the  "delete  instructions"  option.*. 

*  This  Mill*); 

miTELN(*purge  the  existing  instructions  froe  the  files.*); 

URITELN; 

URITELN; 

URITECDo  you  wish  to  delete  the  instructions?  Press  "N"  or  "Y"  :  *); 

IF  GETCHARU'Y*. V,*NVn*I. TRUE. TRUE, TRUE)  IN  I’Y*,*u*J 
THEN 

BEGIN  (2) 

PAGE (OUTPUT) ; 

URITELN; 

URITECOeleting  instructions  ’); 

FOR  I  s-  1  TO  500  DO 

IF  I  MOO  50  -  0  THEN  URITEt*.*); 

DIRECTORY.  I TEMCOOEI0)  NIL; 

UPOATED I RECTORY (CURR I NOEXRECNUM) ; 

END;  12) 

END;  (*  delete  instructions  *) 


I 


BEGIN  (*  instructions  «) 
REPEAT 


MENU; 

COMMANO  GETCHAR  (  fl* . .  *5 
CASE  COMMAND  OF 

*1*  :  J 

*2*  :  ENTER  INSTRUCTIONS: 
*3*  «  VIEU INSTRUCT  IONS; 

*4*  :  MODI FYJNSTRUCT IONS: 
*5*  :  OELETEINSTRUCTIONS: 
Ef®;  (*  cases  *) 

UNTIL  COMMAND  •  *  1  * ; 


ENO;  («  instructions  *) 


*]. TRUE, FALSE, TRUE) 
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(* 

(*  Textfile  :  TMGR.DIR/T. SAMPLES. TEXT  Volume  :  TFILES  «) 

(*  Codefile  :  T. MGR. CODE  ('Include*  file)  Volume  :  CATDATA  s) 

(*  *) 

(e  File  last  modified  :  Feb  18,  1983  NPROC  m) 


SEGMENT  PROCEDURE  SAMPLEQUE3T10NS; 

VAR  I, 

SCOUNT, 

HASH  LOC  :  INTEGER: 

COMMAND  :  CHAR; 

I . I 

(*  sample  menu  *) 

PROCEDURE  MENU: 

BEGIN 

TEXT80MOOE; 

NORMAL; 

GOTOXY (28,8) : 

WRITE (’SUBTEST  SAMPLES  MENU*); 

GOTOXY (0,4) ; 

URITE (‘Select  one  of  the  following  procedures  by  entering  its  number.’); 
GOTOXY (1G. 8); 

URITE (’1.  QUIT’); 

GOTOXY (1G. 9): 

URITEC2.  ENTER  SAMPLE  QUESTION’); 

GOTOXY (1G, 18): 

URITEC3.  VIEU  SAMPLE  QUESTION’); 

GOTOXY (16,11) : 

URITE(’4.  MODIFY  SAMPLE  QUESTION’ ); 

GOTOXY (1G, 12); 

UR1TECS.  DELETE  SAMPLE  QUESTION’); 

GOTOXY (16.16); 

URITE (’Enter  Choice  P  s  ’); 

END;  («  menu  «) 

( . . . - . - . ) 

(«  remove  a  sample  question  *) 

PROCEDURE  DELETESAMPLE; 

VAR  HASHLOC. 

Z  ;  INTEGER; 

ERROR  :  BOOLEAN; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY (IS. 8); 

URITE (’«***««*  WARNING  »»»««»»>»’); 

GOTOXY (0,3); 

URITELNI’You  have  selected  the  "delete  sample  question  *’  option.’, 

’  Thi s  ui 1 1 ' ) ; 

URITELN  (’purge  an  existing  sample  question  from  the  files.’); 

WRITELN; 

URITELN; 

URITECOo  you  wish  to  continue?  Press  "N"  or  "Y"  »  ’); 

IF  GETCHARd’Y’.’y’.’N’.’n’l,  TRUE, TRUE,  TRUE)  IN  t’Y’.’g’l 
THEN 

BEGIN  ID 

PAGE (OUTPUT); 

URITELN; 

URITELN(’De!ete  which  sample  question?  (1..5)’); 

URITE (’Enter  the  number  then  press  <RET>  :  ’); 

READLN(Z) ; 

ERROR  FALSE; 

IF  (Z  >  MAXSAMPLES)  OR  (Z  <  1) 

THEN 

ERROR  TRUE 

ELSE 

IF  DIRECTORY. I TEMCOOE  IZ)  <  0  THEN  ERROR  t-  TRUE; 


Apr  4  10:44  1983  TMGR.DIR/T. SAMPLES. TEXT  (  Manage  sample  questions  for  subtest)  Page  2 


IF  ERROR 
THEN 

BEGIN  (2) 

URITELN; 

URITELN; 

URITELNCNo  such  sample  question!’); 

SQUAUK; 

URITELN; 

STALL; 

EXIT (DELETESAMPLE) ; 

END;  121 

DIRECTORY.  I TEMCOOE  IZ)  NIL; 

SCOUNT  SCOUNT  -  1; 

UPDATEDIRECTORY  (CURRINDEXRECNUM) ; 

PAGE  (OUTPUT); 

URITELN; 

URITECOeleting  saeple  question.'); 

FOR  Z  1  TO  S08  DO 

IF  (Z  flOO  S0)  -  8  THEN  URITEC.’); 

END;  (11 

END;  (*  delete  samples  «) 

I - - - - - 1 

(*  add  a  sample  question  *) 

PROCEDURE  ENTER  SAMPLES; 

VAR  I. 

X.Z  :  INTEGER; 

SELECT  :  CHAR; 

BEGIN  (*  enter  eamples  e) 

PAGE (OUTPUT) ; 

X  0; 

Z  8; 

REPEAT 

X  X  ♦  1; 

IF  DIRECTORY. I TEMCOOE IX]  >  0 
THEN 

BEGIN  (1) 

Z  Z  ♦  1; 

URI TELNC Saeple  question  ’,X,’  exists.’); 

END;  (II 

UNTIL  (X  >-  MAXSAMPLES); 

IF  Z  >-  MAXSAMPLES 
THEN 

BEGIN  12 ) 

URITELN; 

URITELNCNo  rooe  for  sore  saeple  questions.’); 

URITELN; 

SQUAUK; 

STALL; 

EXIT(ENTERSAMPLES); 

END;  (2) 

URITELN; 

URITELN: 

URITELNCMake  which  saeple  question?  fl . . 5)  ’  > * 

URI  TEC  Enter  the  number  then  press  <RET>  :  ’); 

REAOLN(Z) ; 

IF  (Z  >  MAXSAMPLES)  OR  (Z  <  1) 

THEN 

BEGIN  (3) 

URITELN; 

URITELN; 

UR  I  TELNC  Bad  input!  Should  bs  a  number  from  1  to  5.’); 

SQUAWK; 

URITELN; 

STALL; 

EXIT (ENTERSAMPLES) ; 

END  (3) 

ELSE 

IF  DIRECTORY. I TEMCOOE  IZ)  >  0 
THEN 


BEGIN  (4) 
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UR1TELN: 

URITELN; 

URITELNCSaeple  question  *,Z,’  exists  already!*): 

SOJ AUK: 

URITELN: 

STALL: 

EXIT (ENTERSAMPLES) : 

END:  <41 

DIRECTORY.  I TEM_CODEtZ)  1: 

LOAOPTRS: 

ITEM  INFO. ITEH_PTR  CURR_FREE_PTR: 

I  TEM_I  NFO.  I  TEM_BLOCK  CURR.BLOCK: 

FILL_SCREEN _BUFFER(T0PJ1AX,  RIGHT J1AX,  B0TT0MJ1AX,  LEFTJtAX,  TRUE): 
TEXT80MOOE; 

SETGFLAG: 

SELECTATYPE: 

CODE  SCREEN  (TRUE): 

SAVE  PTRS* 

UPOaTE_OI RECTORY (CURR  INDEX.REC  NUM): 

HASH_L0C  :-  HASH(Z): 

UPDATE  ITEM  FILE (HASH_LOC) ; 

SCOUNT  SCOUNT  ♦  1; 

END:  (e  enter  saeples  e) 


(e  change  the  ansuer  selection  range  data  e) 
PROCEDURE  CHANGERANGE; 


PROCEDURE  CHANGERANGE: 
VAR  L BOUND, 

HBOUND  :  CHAR; 

ERR  :  BOOLEAN; 


(e  display  the  question  e) 

OECOOEPRINT  (MOO&.OOC.MODPTR) ; 

(•  get  neu  ansuer  range  e) 

GOTOXY(0,20); 

URITELN (’Current  range  :  ’ , I TEMINFO.LOUANSUER, ’ . . ’ , 
ITEMIfFO.HIGHANSUER); 

URITECNeu  low  bound?  (letter/digit)  :  ’); 

LBOUNO  :-  GETCHAR( C*0* .. *9* . *A* .. ’Z’l , TRUE. TRUE, TRUE) : 
URITELN; 

UR  I  TEC  Neu  high  bound?  (letter/digit)  :  ’); 

HBOUND  GETCHARI  1*0* . . *9’ , *A* . . *2*1 , TRUE, TRUE, TRUE) ; 
ERR  :-  FALSE: 

IF  (HBOUND  IN  C8’..*9’l) 

THEN 

IF  NOT  (LBOUND  IN  1*0*. .’9*1)  T)€N  ERR  TRUE; 

IF  (HBOUND  IN  I’ A* . .  ’Z’J  ) 

THEN 

IF  NOT  (LBOUND  IN  [,A,..,Z'J)  THEN  ERR  TRUE: 
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BLANKL I NES (28,4,28): 

URITELN ('Bounds  range  type  mismatch  error!’): 

SOU AUK; 

URITELN; 

STALL: 

EXIT (CHANGERANGE) s 
END;  (1) 

IF  ORD(LBOUND)  >  ORO(HBOUND) 

THEN 

BEGIN  (2) 

BLANKL  I  fCS  (28,4,20); 

URITELNCLou  bound  exceeds  high  bound  error !'); 

SOU AUK; 

URITELN: 

STALL: 

EX  IT (CHANGERANGE); 

END;  (2) 

ITEHINFO.HIGHANSUER  HBOUfC; 

ITEMINFO.LOUANSUER  L BOUND; 

BLANKLINES (28. 4 ,20); 

URITELN (’The  neu  range  is  :  '.ITEMINFO.LOUANSUER, 

ITEHDFO.HIGHANSUER); 

URITELN: 

STALL; 

END;  (*  change  range  «) 


(«  chanae  the  answer  e) 


VAR  SELECT  :  CHAR; 
I  :  INTEGER; 


(«  get  the  neu  ansuer  e) 

PROCEDURE  GETANSUER; 

BEGIN 

SELECT  GETCHAR(  Cl* . . '3* J  .TRUE, TRUE, TRUE) ; 

PAGE (OUTPUT); 

CASE  SELECT  OF 
•1*  *  BEGIN  (1) 

GOTOXV(22,0) ; 

10UTECW.TIPIE  CHOICE/SINGLE  ANSUER*); 
ITET1INF0.ATYPE  CHAR  VALUE; 

GOTOXY(0,6); 

IfUTEI ’Enter  neu  ansuer  and  then  press  <RET>  t 
FlLLBUFd,  (ITEMINFO.LOUANSUER. .  ITEJ1INFO.HIGHANSUERI 
TRUE); 

ITEIIIIFO.ANSLER  :•  LINEBUF  10}  ; 

LINEBUF [01  ’  ’; 

END;  (11 
*2*  :  BEGIN  (2) 

GOTOXY(22,0) ; 

URI TEC  INTEGER  VALUE  ANSUER’ ); 

I  TEMIfFO.  ATYPE  ;-  I  NT  VALUE; 

GOTOXY(0,6) ; 

WITE( 'Enter  neu  ansuer  (integer 

’value)  and  then  press  <RET>  ;  ’); 

REAOLN ( I ) ; 

I TEMIfFO.  INTANSUER  *-  I; 

END;  (2) 

’3’  :  BEGIN  (3) 

G0T0XY(22,8) ; 

URI  TEC  MULTIPLE  CHOICE/MULTIPLE  ANSUERS’); 
ITEMDFO.ATYPE  SEVENCHR; 

GOTOXY (0,6) ; 

URI TE (’Enter  the  number  of  answers’, 

'  this  question  has  (1..7)  ;  ’); 

SELECT  i-  GETCHAR(C1’.. ’7’), TRUE, TRUE, TRUE); 


.  'k 
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I TEMINFO. ANSUERCOUNT  ORD (SELECT)  -  48s 
URITELN; 

URITELN; 

FOR  I  s-  1  TO  I TEMINFO. ANSUERCOUNT  DO 
BEGIN  (4) 

URlTE(*Enter  ansuer  then  press  <RET>  s  *); 

F1LLBUF (1, 

[ I TEni NPO. LOUANSUER. . I TEHINFO. HI GHANSUER) . 
TRUE) i 

ITEMlhFO.CHRANSUERCll  LINEBUFC01; 

LINEBIJF (01  s-  ’ 

URITELNs 
ENOs  (4) 

END;  (3) 

END;  (•  case  *) 

END;  (e  get  ansuer  a) 

( . ) 

BEGIN  (a  change  ansuer  *) 

OECOOEPR1NT  tnOOBL OCX, HOOP TR) s 
GOTOXY (0,20) ; 

URITE ('Current  ansuer (s)  s  *)j 
CASE  I TEMINFO. ATYPE  OF 
CHARVALUE  :  UR I TELN( ITEM I  UFO. ANSUER); 

I NT VALUE  s  URITELN( I TEMINFO. INTANSUER) ; 

SEYENCHR  :  BEGIN  (1) 

FOR  I  s-  1  TO  I TEMINFO. ANSUERCOUNT  DO 
URITE(ITEMINFO.CHRANSUERIl) ,  ’  '); 

URITELNs 
END;  (1) 

END;  («  cases  a) 

URITELNs 

STALL; 

TEXT80MOOE; 

GOTOXY (20.0); 

URITE ('SELECT  ANSUER  TYPE'); 

GOTOXY (0.4) i 
URITE 

('Select  one  of  the  follouing  options  by  entering  its  nueber.'); 
GOTOXY (16.8) | 

URITEC1.  MULTIPLE  CHOICE/SINGLE  ANStCR' ) ; 

GOTOXY (16. 9); 

URITE ('2.  INTEGER  VALUE  ANSUER'); 

GOTOXY (16. 10); 

URITEC3.  MULTIPLE  CHOICE /MULTIPLE  ANSUERS'); 

GOTOXY (16, 14); 

URITE(’Enter  Choice  $  i  ’); 

GET ANSUER; 

URITELN; 

URITELNs 

URITE ('The  neu  ansuer (s)  ie  i  ’); 

CASE  I TEMINFO. ATYPE  OF 
CHARVALUE  s  IK  I TELN( I TEMINFO. ANSUER ) ; 

I NT VALUE  ;  URI TELN (I TEMINFO. INTANSUER) ; 

SEVENCHR  :  BEGIN  (2) 

FOR  I  1  TO  I TEMIfFO. ANSUERCOUNT  DO 
IKITE(ITEHINFO.CHRANSUERII) , ’  '); 

URITELN; 

ETC;  (2) 

ENO;  (a  cases  e) 

URITELN; 

STALL; 


END;  (e  change  ansuer  e) 

I . - - - ) 


(e  reads  itee  text  file  6  displays  page  e) 
PROCEDURE  PAGEPRINT (VAR  LASTPAGE  t  BOOLEAN); 
VAR  X. 

Y. 

SCREENBYTES, 

CHARCOOE, 
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SKI PBYTE  :  INTEGER: 


(e  returns  next  code  in  i tee  file  e) 
FUNCTION  BUFFERCOOE  :  INTEGER: 

BEGIN 

BUFFERCOOE  TRIX.ASCI IBUF  IM00PTR1 ; 
MOOPTR  :-  MOOPTR  ♦  ls 
IF  MOOPTR  >  2047 
THEN 

BEGIN  (II 

MODBLOCK  :-  MOOBLOCK  ♦  4; 
READ I TEM8L0CK (MOOBLOCK ) : 
MOOPTR  0; 

ENO:  (1) 

END;  («  buffer code  *) 


BEGIN  (»  page  print  «) 

SCREENBYTES 

(XSCREEN  ♦  1)  *  (YSCREEN  +1): 

FILLCHAR (SCREEN  101, SCREENBYTES.*  *): 
SETSCREEN; 

READ I TEMBLOCK (MOOBLOCK) : 

REPEAT 

CHARCOOE  BUFFERCOOE: 

CASE  CHARCOOE  OF 
GOTOFLAG  :  BEGIN  (II 

X  BUFFERCOOE; 

Y  BUFFERCOOE: 

SKI PBYTE  :•  BUFFERCOOE: 
GOTOXY(X.Y): 

END;  (II 
PAGEFLAG  :  : 

ENO I  TEH  :  ; 


IF  (CHARCOOE  >-  32)  MO  (CHARCOOE  <-  126) 

THEN 

BEGIN  (21 

SCREEN  IX. YI  CHR (CHARCOOE) ; 

X  :-  X  ♦  1; 

URITE (CHR (CHARCOOE)): 

END:  (21 

UNTIL  (CHARCOOE  -  ENO I  TEH)  OR  (CHARCOOE  -  PAGEFLAG): 

IF  CHARCOOE  -  END ITEM 
TfCN 

LASTPAGE  TRUE 

ELSE 

LASTPAGE  <-  FALSE; 

END;  («  page  print  «) 


BEGIN  («  Modify  samples  «) 

PAGE (OUTPUT); 

URITELN: 

URITELNCVieu  uhat  sample  question?  (1..5)’); 
URITE (’Enter  the  number  then  press  <R£T>  :  ’); 
REAOLN(Z) ; 

ERROR  :-  FALSE; 

IF  (Z  >  MAXSAMPLES)  OR  (Z  <  1) 

THEN 

ERROR  TRUE 

ELSE 

IF  DIRECTORY.  I TEMCOOE(Z)  <  0  THEN  ERROR  : 
IF  ERROR 
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BEGIN  ID 
URITELN; 

URITELN; 

URITELNCNo  such  sample  question!’); 

SOU AUK; 

URITELN; 

STALL; 

EXIT  (MDOIFYSAMPLES) ; 

END;  ID 

HASH  LOC  HASH(Z); 

RESE  T  IF I LE I TEM I NFO . DA  TANAME ) ; 

SEEK  IF I LE ITEM INFO. HASH  LOC); 

GET  IFILEITEM1NF0) ; 

ITEMI^O  FILEI TEMINFOA; 

CLOSE  IF I LE I TEM I NFO . LOCK ) ; 

REPEAT 

TEXT80MODE; 

GOTOXY (20,0) ; 

URITEI’MOOIFY  SAMPLE  QUESTION  MENU’); 

GOTOXY (0,4); 

URITECSelect  one  of  the  following  options  by  entering  ite  number.*); 
GOTOXY (1G. 8); 

URITEI’l.  QUIT’); 

GOTOXY  1 1G. 9); 

URITEC2.  MODIFY  SAff’LE  TEXT’); 

GOTOXY (1G. 10); 

URITEC3.  MOOIFY  SAMPLE  ANSUER’); 

GOTOXYIlG.il); 

URITEC4.  MOOIFY  SAMPLE  ANSUER  RANGE’); 

GOTOXY (1G. 12); 

URITECS.  MOOIFY  GRAPHICS  RAG’); 

GOTOXY (1G, 1G) ; 

URI TE (’Enter  Choice  U  t  ’); 

M008L0CK  I TEMINFO. I TEMBLOCK; 

MOOPTR  I TEMINFO. I TEMPTR; 

SELECT  GETCHARf  Cl ’.. ’S’) . TRUE. TRUE. TRUE) ; 

CASE  SELECT  OF 

T  :  ; 

’2*  ;  BEGIN  12) 

LOAOPTRS; 

(a  save  ptrs  to  beginning  of  text  e) 

I  TEMINFO.  ITETBLOCK  s-  CURRBLOCK; 

I TEMINFO. I TEMPTR  CURRFREEPTR; 

BLOCK  CURRBLOCK; 

BLOCKPTR  i-  CURRFREEPTR; 

REPEAT 

PAGEPRINT (ENDTEXT) ;' 

F1LLSCREEIBUFFER (TOPMAX.RIGHTMAX.BOTTOMMAX.LEFTMAX, FALSE) ; 

IF  NOT  (EM) TEXT) 

THEN 

COOESCREEN  (FALSE); 

UNTIL  ENDTEXT: 

COOESCREEN (TRUE); 

SAVEPTRS; 

END;  12) 

’3’  s  CHANGEANSUER; 

•4*  ;  CHANGER ANGEs 
’S’  :  SETGFLAG; 

END;  (*  cases  a) 

UNTIL  SELECT  -  ’ 1* ; 

UPOATE I TEMFILE (HASHJLOC) ; 

END;  (e  modify  item  *) 

I - - - - - - - - ) 

(e  look  at  sample  question  «) 

PROCEDURE  VIEUSAMPLES; 

VAR  I, 

Z. 


204 
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BLOCK, 

BLOCKPTR  :  INTEGER} 

ERROR  :  BOOLEAN} 

BEGIN  («  view  samples  «) 

PAGE (OUTPUT) ; 

URITELN; 

URITELN(*View  what  sample  question?  (1..5)’); 
URITEl’Enter  the  number  then  press  <R£T>  :  ’)} 
READLN(Z) } 

ERROR  FALSE) 

IF  (Z  >  MAXSAMPLES)  OR  (Z  <  1) 

THEN 

ERROR  TRUE 

ELSE 

IF  DIRECTORY. I TEHCOOE IZ1  <  8  THEN  ERROR  TRUE: 

IF  ERROR 
THEN 

BEGIN  (1) 

URITELN; 

URITELNCNo  such  sample  question!*): 

SQUAWK; 

URITELN: 

STALL: 

EXIT (VIEUSAHPLES) : 

ENO:  III 

HASH_L0C  HASH(Z); 

RESET (F I LE I TEHI NFO, OATANAHE) : 

SEEK (FILEI TEniNFO, HASH.LOC) : 

GET (FILEITEniNFO) ; 

I TEniNFO  FILEITEniNFO"; 

CLOSE (F I LE I TEn I NFO . LOCK ) : 

BLOCK  I TEniNFO. ITEMBLOCK; 

BLOCKPTR  I TEHINFO. I TEnPTR; 

OECOOEPRINT (BLOCK .BLOCKPTR) : 

GOTOXY (0,20) : 

UR I TE (’Answer (s)  :  *); 

CASE  I TEniNFO. ATYPE  OF 
CHARVALUE  :  URlTELN(ITEniNFO.ANSUER); 

I NT VALUE  :  URITELN (ITEM I NFO. INT ANSWER) ; 

SEVENCHR  :  BEGIN  (2) 

FOR  1  : -  1  TO  I TEttlNFO. ANSUERCOUNT  DO 
URITEUTEMINFO.OfflANSUER II J ,  *  ’); 
URITELN; 

END;  (2) 

ENO:  (*  cases  *) 

URITELN; 

STALL; 

END;  (*  view  samples  *) 


BEGIN  (e  sample  questions  m) 

(s  figure  out  how  many  sample  questions  there  are  m) 
SCOUNT  0; 

FOR  I  t.  1  TO  MAXSAHPLES  DO 

IF  DIRECTORY. I TEMCOOE  III  >  0  THEN  SCOUNT  SCOUNT  ♦  1; 

REPEAT 

MENU: 

COMMAND  GETCHAR(  1*1* .. *5*] .TRUE, FALSE, TRUE) ; 

CASE  COMMAND  OF 

T  :  : 

*2*  :  ENTER  SAMPLES: 

*3*  :  VIEUSAMPLES: 

*4*  :  MOOIFY  SAfPLES; 

*S*  :  OELETESAMPLE: 

END: 

UNTIL  COMMAND  -  *1*; 
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Textfile  :  TnGR.DIR/T. LIST. TEXT  Volume 

Codefile  :  T. MGR. CODE  ('Include'  file)  Volume  :  CATDATA 


1.  1982 


(ft  lists  the  directory  test  names  to  the  screen  *) 

SEGMENT  PROCEDURE  LISTTESTS (SHOUFILEINFO  :  BOOLEAN); 

VAR  1 , J,K, ITEMCOUNT  :  INTEGER: 

BEGIN 

PAGE (OUTPUT); 

GOTOXY (24.0) ; 

URITECL1ST  OF  SUBTESTS'); 

I  :-  0; 

J  :  -  0; 

GOTOXY (0.3); 

REPEAT 

IF  NOT  (OIRIMFO  tl 3  .NOTUSED) 

THEN 

BEGIN  (1) 

J  J  +  1; 

IF  J  <-  10 
THEN 

GOTOXY (0,2+J) 

ELSE 

GOTOXY (40, 2+J-10) ; 

URI TE (J, ’ .  ’ .OIRINFO  III . TNAME) ; 

URITELNC  C. OIRINFO II) .  ITEMCOUNT, ')') ; 

END;  III 
I  :-  I  +  1; 

UNTIL  I  >  HAXSU8 TESTS; 

IF  SHOUFILEINFO 
THEN 

BEGIN  (2) 

GOTOXY (0,18); 

URITELNU,  '  files  in  directory,  (MAXSUBTESTS  -  J  +  1),  '  unueed* ) 
URITELN; 

STALL; 

END;  121 

END;  (*  I i st  tests  ft) 


(ft  lists  the  tests  in  directory  4  loads  %) 

SEGMENT  PROCEDURE  LOAOTEST (MESSAGE  :  STRING); 

VAR  Q. 

TESTNUM. 

RECNUM  ;  INTEGER; 

OKTEST  :  BOOLEAN; 

TEXTCOOE  :  CHAR; 

BEGIN  («  load  test  ft) 

OKTEST  s-  FALSE; 

LISTTESTS (FALSE); 

RESE T (F I  LED I RECTORY . 1  NOEXNAME ) ; 

REPEAT 

GOTOXY (0,15); 

URITELNC  INSTRUCTIONS  :  Enter  choice  0,  then  press  <RET>.’) 
URI  TEC  To  escape,  press  0  then  <RET>.’); 

GOTOXY (0,18); 

LffRI  TE  (MESSAGE) ; 

(*»I-ft) 

READLN (TESTNUM); 

(fttU*) 


IF  TESTNUM  -  0 


IF 
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BEGIN  111 
ESCPROC  TRUE: 

CLOSE (F I LED I  RECTORY . LOCK ) j 
EXIT (LOAOTEST) s 
ENO:  (1) 

IF  <TESTNUn  <  0)  OR  (TESTNUM  >  (MAXSUBTESTS+1 ) ) 

THEN 

BEGIN  (2) 

URITELN; 

URITELNC  Invalid  test  U  :  * ,  TESTNUM) : 

SQUAUK; 

URITELN; 

STALL; 

ENO  (2) 

ELSE 

BEGIN  (31 
RECNUM  8; 

Q  :■  0; 

REPEAT 

SEEK (F I  LED I REC  TOR Y , RECNUH ) ; 

GET  (FILEOIRECTORY) ; 

IF  NOT  (FI LEO I  RECTORY*. UNUSED)  THEN  Q  Q  +  1; 
RECNUM  RECNUM  +  1; 

UNTIL  (Q  -  TESTNUM)  OR  (RECNUM  >  MAXSUB TESTS ) ; 

IF  Q  -  TESTNUM 
THEN 

BEGIN  (4) 

CURR I NOEXRECNUM  :•  RECNUM  -  1; 

OKTEST  TRUE: 

ENO  <4) 

ELSE 

BEGIN  (5) 

URITELN; 

URITELN (’No  test  loaded’); 

URITELN; 

STALL; 

END;  (S) 

ENO;  (3) 

IF  NOT  OKTEST  T)CN  BLANKLINES (18, 6, 18) ; 

UNTIL  OKTEST; 

SEEK (F I LEO I RECTORY , CURR I NOEXRECNUM ) ; 

GET (FILEDIRECTORY); 

DIRECTORY  FILEOIRECTORY''; 

RIGHTMAX  38; 

SCR80  FALSE; 

VNORMAL  FALSE;  < 

TEXTCOOE  : -  DIRECTORY. TESTNAME Ill ; 

CASE  TEXTCOOE  OF 
’*’  :  BEGIN  (6) 

RIGHTMAX  78; 

SCR80  TRUE; 

VNORMAL  s-  FALSE; 

ENO;  16) 

’•’  :  BEGIN  171 

RIGHTMAX  78; 

SCR80  ;-  TRUE; 

VNORMAL  TRUE; 

ENO;  (7) 

’?’  :  BEGIN  (8) 

RIGHTMAX  38; 

SCR80  FALSE; 

VNORMAL  TRUE; 

ENO;  181 
ENO;  (*  cases  *) 

CLOSE  (F I  LEO I REC  TORY , LOCK I ; 

•NO;  (*  load  test  *) 
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««»*«»«««  »»»«»»»*»«»»$*«»>»«»»»■»»>»<««»>«  tessssssesssea) 
(*  ») 

(*  Textf i le  :  TMGR.DIR/T.NEU. TEXT  Volume  :  TPILES  e) 

(«  Codefile  :  T. MGR. CODE  (’Include*  file)  Volume  :  CATOATA  *) 

(*  »j 

eessee  +  sf  ******  rM"t*SltrH') 

(«  File  laet  modified  :  Jan  2S,  1982  NPRDC  ») 


(«  create  a  neu  test  and  save  on  disk  «) 
SEGMENT  PROCEDURE  NEUTEST ; 

VAR  TEXTCODE, 

COMMAND  :  CHARj 


( 


) 


(*  returns  ptr  to  unused  directory  space  *) 
(*  ni I  if  none  available  «) 


FUNCTION  DIRFREESLOT  :  INTEGER: 

VAR  FOUND  :  BOOLEAN; 

SLOT  :  INTEGER; 

BEGIN  («  dir  free  slot  «) 

RESET (F I LEOI RECTORY. I  NOEXNAME) ; 

FOUND  s-  FALSE; 

SLOT  0; 

REPEAT 

SEEK (FILEDIRECTORY.SLOT) ; 
GET(FILEDIRECTORV); 

IF  FI LEO I RECTORY^. UNUSED 
THEN 

BEGIN  (1) 

FOUND  TRUE; 

DIRECTORY  FILE0IRECT0RY-; 
END  (1) 

ELSE 

SLOT  SLOT  +  1; 

UNTIL  (FOUND)  OR  (SLOT  >  MAXSUB TESTS ) ; 

IF  FOUND 
THEN 

OIRFREESLOT  ;.  SLOT 

ELSE 

OIRFREESLOT  NIL; 

CLOSE (FI LEO I REC TORY , LOCK ) ; 

END;  («  dir  free  slot  *) 


I 


) 


(*  get  the  test  name  «) 

PROCEDURE  GETTNAME; 

BEGIN 

PAGE  (OUTPUT); 

GOTOXY(18.0); 

UR  I  TEC  SUBTEST  NATE  FORMAT  INSTRUCTIONS’); 

GOTOXY (0,2) ; 

URITELNI 

’The  first  character  of  the  eubtest  name  specifies  uhich  screen  format  the  ’); 
URITELNI 

’question  text  uill  appear  in.  The  screen  codes  are  listed  belou.  The  '); 
URITELN( 

'second  character  of  the  subtest  name  specifies  the  total  permitted  time  '); 
URITELNI 

'in  minutes  for  timed  subtests.  The  third  and  fourth  characters  specify*); 
URITELNI 

'the  additional  seconds  permitted  for  timed  subteste.  Type  in  the  subtest’); 
URITELNI 

’name  then  press  <RET>.'); 

URITELN; 

URITELNC”*”  as  first  char  -  inverse  +  80  columns’); 
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URITELNC”#”  as  first  char  -  normal  ♦  80  columns’); 

URITELNC”?’’  as  first  char  -  normal  +  40  columns'); 

URITELN; 

URITELN< 

’If  first  character  of  test  name  is  not  any  of  the  above  control  characters,’); 
URITELN! 

’then  the  text  format  uill  default  to  inverse  +  40  columns.’); 

URITELN; 

URITELN; 

URITELN; 

URI  TELNCEnter  the  subtest  name,  then  press  <RET>’); 

URITELN; 

UKITEC - >  ’); 

REAOLN  (DIRECTORY.  TESTNAfE) ; 

END;  («  get t name  *) 


BEGIN  («  neutest  «) 

CURRINOEXRECNUM  D1RFREESL0T; 

IF  CURR I NOEXRECNUTI  -  NIL 
THEN 

BEGIN  <11 

PAGE (OUTPUT); 

GOTOXY (0,5) ; 

URITELNCNo  room  in  directory  !!*); 
URITELN: 

STALL: 

EXIT (NEUTEST); 

ENO;  (1) 

DIRECTORY. UNUSED  s-  FALSE; 

(*  give  instructions  «) 

GETTNAME; 

RIGHTMAX  38; 

SCR80  l-  FALSE; 

V NORMAL  FALSE: 

TEXTCOOE  : -  DIRECTORY, TESTNAME til ; 

CASE  TEXTCOOE  OF 
:  BEGIN  (2) 

RIGHTMAX  78; 

SCR80  TRUE: 

VNORMAL  FALSE; 

ENO:  (2) 

’•’  :  BEGIN  (3) 

RIGHTMAX  78; 

SCR80  TRUE; 

VNORMAL  TRUE; 

ENO;  (3) 

•?’  ;  BEGIN  (41 

RIGHTMAX  s-  38; 

SCR80  FALSE; 

VNORMAL  TRUE; 

ENO;  (4) 

ENO:  (*  cases  *) 

UITH  DIR INFO  (CURRINOEXRECNUM]  00 
BEGIN  (SI 

NOTUSEO  FALSE: 

TNAME  DIRECTORY. TESTNAME; 

1 TEMCOUNT  8; 

ENO;  (5) 

UPOATEDIRECTORY (CURRINOEXRECNUM) ; 

FETCHTEST; 

ENO;  (s  neutest  *) 


[l] 


Textfile  s  TMCR.DIR/T. DELETE. TEXT  Volume  ;  TFILES 

Codefile  :  T. MGR. CODE  (’Include’  file)  Volume  ;  CATDATA 


1.  1382 


SEGMENT  PROCEDURE  DELETETESTj 
VAR  I. 

OATASLOT. 

I TEflCNT  :  INTEGER! 

CHR  s  CHAR: 

BEGIN  (*  delete  test  *) 

PAGE (OUTPUT); 

GOTOXY11S.0); 

UR I TELN ( * **********  UARNING  **********'); 

URITELN: 

UR I TELN; 

UR I TELN ( 

'You  have  selected  the  ’’Delete  Subtest”  option.  This  uill  purge  the  subtest’); 
UR I TELN ( 

'directory  from  the  database  and  the  itembanks  for  the  subtest  uill  cease  to*); 

UR I TELN ( 

’exist’)! 

URITELN; 

URITELN; 

URlTECOo  you  uish  to  continue?  Press  ”N”  or  ”Y”  ;  ’); 

IF  GETCHAR((’Y’,’N’,’y’,’n’]. TRUE, TRUE, TRUE)  IN  t’N’/n’l 
THEN 

EXIT (DELETETEST) ; 

ITEMCNT  0; 

LOAOTESTC  Delete  which  test?  :  ’); 

IF  ESCPROC  THEN  EXIT (DELETETEST); 

PAGE (OUTPUT); 

URI TE (’Purge  '  .directory,  testname,  ’  ?  Preee  ”N”  or  ”Y”  ;  ’); 

IF  GETCHAR(  I’ Y’ ,  ’N’ , *y’ , ’n’l  .TRUE, TRUE, TRUE)  IN  C’N’.’n’l 
THEN 

EXIT (DELETETEST); 

URITELN; 

URITELN; 

URITE('Oeleting’); 

FOR  I  0  TO  MAX  I TEMPOOL  DO 
BEGIN  (1) 

URI  TE  (’ .  ’ )  • 

IF  DIRECTORY.  I  TEnCOOEIIJ  >-  0 
THEN 

BEGIN  (2) 

ITEMCNT  ;-  ITEMCNT  +  1; 

01  RECTORY.  I TEMCOOEIIJ  NIL; 

END;  (2) 

END;  111 

DIRECTORY. UNUSED  : -  TRUE; 

UPDATED I  RECTORY (CURRINDEXRECNUM) ; 

DIRINFO ICURRINOEXRECNUM] .NOTUSED  TRUE; 

END;  (*  delete  test  *) 
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(eesesesee  *******  $$******************  »»*»  eweasee 
(*  * 

(*  Textfile  :  TMGR.OIR/T. FLOPPY. TEXT  Voluae  :  TFILES  * 

(*  Codefile  :  T.MGR.COOE  ('Include*  file)  Voluae  :  CATDATA  e 

(«  * 

(*  File  laat  eodified  :  Feb  18,  1983  NPROC  e 

«»»>»»»»»»♦*«  rrrrrrraaaaartxa-sycMasexs-aaM  »»»■**-»-*•***•«»»»«*■»»» 

(«  This  procedure  transfers  a  test  directory,  data,  and  text  from  the  18  * 


(*  Megabyte  Corvus  hard  disc  to  a  5.5  inch  soft  floppy  disc.  This  procedure  * 
(e  ie  needed  because  the  files  on  the  Corvus  are  too  large  to  fit  on  a  floppy.e 
(«  Thus  we  break  up  the  three  files  of  the  teat  question  data  base  into  three  e 
(*  snaller  files  containing  inforaation  for  a  single  test.  «) 

SEGMENT  PROCEDURE  TRANSFERTOSINCHj 


VAR  I, 

J, 

OATARECNUM, 

FCURR8L0CK,  (*  current  free  block  *) 

FCURRFREEPTR  :  INTEGER;  (e  current  free  byte  in  free  block  *) 

FILENAME,  (e  prefix  for  filenaaes  *) 

FDIRNAME,  (»  directory  naae  *) 

FOATANAME,  (e  naae  of  file  for  data  «) 

FTEXTNAME  :  STRING;  (e  naae  of  file  for  text  «) 

(«  directory  «) 

FDIR  i  OIROATAj 

FOIRFILE  :  FILE  OF  OIROATA; 

(«  question  data  «) 

FDATA  :  ITEMOATA; 

FOATAFILE  :  FILE  OF  ITEMOATA; 

(«  question  text  «) 

FTEXT  s  FILE; 

(«  block  sized  buffer  for  ascii  t  control  codes  *) 

FITEMBUF  :  PACKEO  ARRAY  10. . 20471  OF  0..139; 

I . I 


(e  This  procedure  gets  a  naae  for  the  files  to  be  put  on  the  floppy  and  e) 
(*  foraate  the  files  for  the  appropriate  data.  *1 

PROCEDURE  FORMA TFLOPPY; 

VAR  NAME Ok  t  BOOLEAN; 

ERRNUT1  ;  INTEGER; 

BEGIN  («  foraat  floppy  e) 

LOAOTEST (’Ur i to  which  subteet  to  floppy?  i  ’); 

IF  ESCPROC  THEN  EXIT! TRANSFER TOSINCH); 

NAME Ok  FALSE; 

PAGE (OUTPUT) ; 

(«  get  a  filenaae  for  the  test  «) 

REPEAT 

URI  TELNCEnter  destination  filenaae,  then  press  <RET»’); 

URITELN; 

URITEC - >  M; 

REAOLN (FILENAME); 

IF  FILENAME  Ill  -  CHR(ESC)  THEN  EXI T (TRANSFERTOSINCH) ; 

FDIRNAME  ;-  CONCAT (FILENAME, * .DIR. DATA*); 

(«<I-*> 

RESE T (FD 1 RF I LE , FD I RNAME ) ; 

<•»!+*’ 

IF  I  ORE  SUL  T  -  0 
THEN 

BEGIN  (1) 

URITE  (’Destroy  old  ’  .FDIRNAfE,  ’  ?  Press  •’N”  or  "Y”  :  ’); 


212 
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IF  GETCHAR(  (’ Y’ ,  *y’ ,  *N’ ,  'n’l  .TRUE, TRUE, TRUE)  IN  I'V.’u'] 

THEN 

BEGIN  (2) 

CLOSE(FOIRFILE.PURGE) ; 

REURITE(FDIRFILE.FDIRNAHE); 

NAME OK  TRUE: 

END;  12) 

URITELN; 

END  (1) 

ELSE 

BEGIN  (3) 

(*•!-*) 

REUR I TE (FD I RF 1 LE , FD I RNAME ) : 

(*»!+«) 

ERRNUH  I  ORE SUL Tj 

IF  I  ORE SUL T  <>  0 
THEN 

BEGIN  14) 

URITELN: 

URITELN (’Cannot  open  * .FD1RNAME, *  10  error  M’  .ERRNUH) : 
SOU  AIK; 

URITELN: 

URITELN: 

END  (4) 

ELSE 

NAME OK  s-  TRUE: 

END;  (3) 

UNTIL  NAHECK; 


(«  transfer  the  directory  *) 

SEEK (F01 RF I LE . 0) ; 

FOIR  DIRECTORY: 

FOIRFILE”  FOIR; 

PUT (FOIRFILE) ; 

CLOSE(FOIRFILE.LOCK) : 

(*  aake  and  foreat  the  data  and  ascii  file  for  the  test  e) 

FOATANAME  CONCAT (FILENAME, * .OATA.OATA’ ) : 

FTEXTNAME  CONCAT (FILENAME. TEXT. DATA’ ) , 

REURI TE (FOATAFILE.FDATANAHE) : 

SEEK (FDATAF I LE . MAX  I TEMPOOL) : 

CLOSE (FOATAFILE.LOCK) ; 

REURI TE (FTEXT.FTEXTNAME) | 

ERRNUH  BLOCKURI TE (FTEXT.  FI  TEfBUF,  4,0) ; 

CLOSE (FTEXT, LOCK): 

END;  (a  foreat  floppy  «) 

{ - - - ) 

(«  This  procedure  urites  a  block  of  question  ascii  froe  the  block  sized  *) 
(«  buffer  to  the  disk  in  the  ascii  file.  *) 

PROCEDURE  FURITEITEMBLOCK (UHICHBLOCK  :  INTEGER); 

VAR  BLOCKS TRANSFERRED, 

ERRNUH  :  INTEGER; 

BAD 10  :  BOOLEAN; 

BEGIN  (e  fur  its  itee  block  «) 

BAOIO  FALSE; 

RESET  (FTEXT.FTEXTNAME); 

BLOCKSTRANSFERREO  BLOCKURI TE (FTEXT,  FITEMBUF,  4,  UHICHBLOCK); 

BAOIO  ;.  ((BLOCKSTRANSFERREO  <  4)  OR  (I  ORE  SUL T  <>  0)); 

ERRNUH  IORESULT; 

CLOSE (FTEXT, LOCK); 

IF  BAOIO 
THEN 

BEGIN  (1) 

UR I TELN;  UR I TELN ; 

URITECBlock  urite  io  error  M  ’.ERRNUH); 

URITELN; 

STALL; 

EX IT (PROGRAM); 
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END;  (1) 

END:  (*  fwr  i  tei  teeb lock  «) 


(e  reads  a  block  froe  disk  into  the  i tee  ascii  buffer  «) 

PROCEDURE  FREAO I TEPBLOCK (UH I CH8L0CK  :  INTEGER); 

VAR  BLOCKSTRANSFERREO. 

ERRNUM  :  INTEGER: 

BADIO  :  BOOLEAN; 

BEGIN  (*  fread  i tea  block  *) 

BADIO  :-  FALSE; 

RESET  (FTEXT.FTEXTNAflE) ; 

BLOCKSTRANSFERREO  :-  BLOCKRE AO (F TEX T ,  FITEfBUF.  4.  UHICHBLXK); 
BADIO  :-  ((BLOCKSTRANSFERREO  <  4)  OR  (I0RESULT  <>  0)); 

ERRNUT1  :-  I  ORE  SUL  T; 

CLOSE (FTEXT.LOCK); 

IF  BADIO 
THEN 

BEGIN  (1) 

URITELN;URITELN; 

URITE  (’Block  read  io  error  0  * , ERRNUM); 

URITELN; 

STALL: 

EXIT(PROGRAfl) ; 

END;  (1) 

END:  (*  fread  i tee  block  *) 


(»  saves  value  of  free  space,  block  s  byte  ptr  in  block  0,  bytes  0.  .3  of  «) 
(«  text  f i le.  «) 

PROCEDURE  FSAVEPTRS; 

VAR  TRIX  :  RECORD  CASE  INTEGER  OF 

1  :  (TUOBYTES  :  PACKED  ARRAY 

C0..1I  OF  CHAR); 

2  :  (INTVALUE  :  INTEGER); 

END; 

BEGIN  («  fsave  ptrs  «) 

FREAOI TEfBLOCK (8) ; 

TRIX. INTVALUE  :-  FCURRBLOCK; 

HOVELEFT  (TRIX.  TUOBYTES  I0J,  FITEfBUF  (01, 2); 

TRIX. INTVALUE  :-  FCURRFREEPTR; 
nOVELEFT  (TRIX.  TUOBYTES  (01  ,FI  TETBUF  (21 ,2) ; 

FUR  I TE I  TEfBLOCK (0) ; 

END;  (e  fsave  ptrs  *) 


(«  This  procedure  reads  in  the  question  text  froe  the  ascii  file  of  the 
(«  corvus  and  block  reads  it  onto  the  floppy.  «) 

PROCEDURE  ASCI  I TOFLOPPY (C8L0CK.CPTR  :  INTEGER); 

VAR  CORVUSBLOCK, 

CORVUSPTR  «  INTEGER; 


BEGIN  (*  ascii  to  floppy  e) 
CORVUSBLOCK  C8L0CK; 
CORVUSPTR  CPTR; 

READ  I TEHBLOCK (CORVUSBLOCK) ; 
FREADI  TEfBLOCK  (FCURRBLOCK) ; 


(e  get  block  uhere  text  starts  •) 
(*  set  buffer  to  fill  *) 


(*  read  froe  corvus  buffer  into  floppy  buffer,  if  ptrs  reach  end  *) 
(*  of  buffer,  read  in  neu  block/urite  out  full  buffer  *) 

UHILE  TRIX. ASCI  I BUF (CORVUSPTR)  <>  ENOSTEM  DO 
BEGIN  111 

F I TEMBUF (FCURRFREEPTR)  :-  TRIX. ASCI IBUF [CORVUSPTR] ; 

FCURRFREEPTR  FCURRFREEPTR  +  1; 
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CORVUSPTR  i.  CORVUSPTR  ♦  1, 

IF  CORVUSPTR  >  2047 
THEN 

BEGIN  (2) 

CORVUSBLOCK  CORVUSBLOCK  ♦  4j 
CORVUSPTR  0: 

READ I TEHBLOCK (CORVUSBLOCK) ; 

END:  (2) 

IF  FCURRFREEPTR  >  2047 
THEN 

BEGIN  (3) 

FUR1 TEI TEM8L0CK (FCURRBLOCK) : 

FCURR BLOCK  FCURRBLOCK  +  4j 
FCURRFREEPTR  0: 

END:  (3) 

END:  <1) 

FI TEHBUF IFCURRFREEPTR1  ENOITEflt  (*  Mark  end  of  text  e) 
FCURRFREEPTR  FCURRFREEPTR  +  1: 

FUR I TE I TEHBLOCK (FCURRBLOCK) i 

IF  FCURRFREEPTR  >  2847 
THEN 

BEGIN  (4) 

FCURRBLOCK  FCURRBLOCl  4| 

FCURRFREEPTR  0; 

FUR l TE 1 TEHBLOCK (FCURRBLOCK ) 5 
END:  (4) 

END:  («  ascii  to  floppy  •) 


( 


(e  transferto5inch  *) 

FORMATFLOPPYj 
FCURRBLOCK  0; 

FCURRFREEPTR  4;  (s  first  four  bytes  reserved  0  -  3  *) 

RESET (FILEI TEHIfFO.DATANAHE) ; 

RESET (FDATAFILE, FOATANAHE ) ; 

(*  transfer  data,  text  and  update  text  pointers  *) 

PAGE (OUTPUT) j 

UR  I TELN (*  Transfsrr i ng* ) : 

J  :«  1: 

FOR  I  0  TO  HAXITETIPOOL  DO 
BEGIN  (1) 

IF  DIRECTORY. ITEnCOOEIU  >-  0  (*  question  exists  e) 

THEN 

BEGIN  12) 

URITEC.Mj 

IF  (J  nOO  50)  -  0  THEN  UR I TELN j 
J  :■  J  ♦  1; 

DATARECNUT1  HASH U ) j 
SEEK  (FILEI  TEMNFO.OATARECNUH)  j 
GET (FILEITEHINFO) ; 

ITEHIfFO  FILEITEHINFO*; 

FOATA  ;■  I TEHINFO;  (*  transfer  the  data  s) 

FDATA. I TEHBLOCK  FCURRBLOCK;  (»  set  new  text  ptrs  *> 

FOATA. ITEHPTR  FCURRFREEPTR; 

SEEK (FDATAFILE, I); 

FOATAFILE*  FOATA; 

PUT (FDATAFILE) ;  (*  write  data  to  floppy  s) 

(«  transfer  the  text  *) 

ASC 1 1 TOFLOPPY (ITEHINFO.! TEHBLOCK , I TEHINFO. I TEHPTR) ; 

END;  (2) 

END;  (1) 

FSAVEPTRS;  («  save  end  of  file  Marker  *) 

CLOSE  (FILE I  TEHINFO, LXK); 

CLOSE (FDATAFILE, LOCK); 

END;  (*  transfer toS inch  *) 


Textfile  :  TrtCR.DIR/T. SEARCH. TEXT  Volume  :  TFILES 

Codefile  :  f.MCR.COOE  (‘Include’  file)  Volume  :  CATOATA 
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CURRBLK  t-  CURRBLK  ♦  BLOCKSOUT; 
READI TEH8L0CK (CURRBLK) : 

CURRPTR  0: 

END:  (1) 

END:  (*  bufcode  *) 


EGIN  (a  scanquest  *) 

FOR  B  1  TO  10  00 
ALREADY  FOUND  (BI  FALSE: 

READI  TEHSLOCK  (BLOCKNUtl) ; 

(*  set  block/byte  ptrs  *) 

CURRPTR  BLOCKPTR; 

CURRBLK  BLOCKNUtl: 
FILLCHAR(LINEBUF  (01 ,80,  *  *): 

(«  read  bytes  froa  the  buffer  e) 
REPEAT 

(a  get  char  froa  block  buffer  «) 


(«  get  char  froa  bio 
CHARCOOE  bufcode; 


CASE  CHARCOOE  OF 

GOTOFLAG  :  BEGIN  (1)  (*  aove  cursor  «) 

(«  next  tuo  bytes  after  flag  are  x,y  coord  «) 

X  BUFCODE; 

Y  BUFCOOE; 

CHARCNT  BUFCOOE; 

IF  (CURRPTR  +  CHARCNT  -  1)  >  HAXBUFSIZE  THEN 
BEGIN  (2) 

B  (HAXBUFSIZE  +  1)  -  CURRPTR; 

HOVELEFT (TRIX. ASCI IBUF  [CURRPTR] .LINEBUF IX] ,B) ; 

X  :•  X  ♦  8; 

B  CHARCNT  -  B; 

CURRBLK  i-  CURRBLK  ♦  BLOCK SOU T; 

READI TEHBLOCK (CURRBLK) ; 

CURRPTR  0; 

HOVELEFT (TRIX. ASCI IBUF [CURRPTR] .LINEBUF [X] ,B) ; 
CURRPTR  CURRPTR  ♦  B; 

END  (2) 

ELSE 

BEGIN  (3) 

HOVELEFT (TRIX. ASCI IBUF [CURRPTR] .LINEBUF [X] .CHARCNT) ; 
CURRPTR  CURRPTR  ♦  CHARCNT; 

IF  CURRPTR  >  HAXBUFSIZE  THEN 
BEGIN  14) 

CURRBLK  CURRBLK  +  BLOCKSOUT; 

CURRPTR  ;■  0; 

READI TEHBLOCK (CURRBLK) ; 

END:  (4) 

END;  (3) 

HOVELEFT  (L I NEBUF  [0] .  TEXTL I NE  [1  ] ,  80) ; 

FOR  K  1  TO  NUHKEYS  DO 
BEGIN 

KEYSTR  KEYUOROIKl; 

IF  POS (KEYSTR, TEXTLINE)  <>  0  THEN 
BEGIN 

IF  NOT  ALREAOYFOUNO [K]  THEN 
BEGIN 

KEYCOUNT  KEYCOUNT  ♦  1; 

ALREAOYFOUNO (K)  TRUE; 

END; 

END; 

END; 

F I LLCHAR (LINEBUF [0] ,80, *  *); 

END;  ID 
PAGEFLAG  :  ; 

END I  TEH  t  ; 


I 
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UNTIL  CHARCOOE  -  ENOITEM:  (*  until  end  flag  hit  *) 
ENO;  (*  ecanqueet  *) 


{ 


I 


(•  reads  i tea  text  file  8  dieplays  i tea  text  to  printer  or  file  *) 

PROCEDURE  USTPRINKBLOCKNUfl,  BLOCKPTR  :  INTEGER); 

VAR  X. 

Y. 

OLDY, 

CURRPTR, 

CURRBLK, 

SCREEN8YTES, 

CHARCOOE, 

SKI PBYTE  :  INTEGER: 

I . I 

(«  returns  next  code  in  file  *) 

FUNCTION  L8UFCOOE  :  INTEGER; 

BEGIN 

LBUFCOOE  TRIX. ASCI IBUF tCURRPTRl ; 

CURRPTR  CURRPTR  ♦  1; 

IF  CURRPTR  >  2047  THEN 
BEGIN  111 

CURRBLK  CURRBLK  +  4; 

RE ADI TEHBLOCK (CURRBLK) ; 

CURRPTR  0; 

ENO;  (II 

ENO:  (•  Ibufcode  •) 


( . I 

BEGIN  (a  I  istpr int  *) 

SCREENBYTES  (XSCREEN  ♦  1)  •  (YSCREEN  ♦  1); 

F I LLCHAR (SCREEN  [0] .SCREENBYTES, ’  ’ ) ; 

OLDY  s-  TOPflAX; 

READ I TEHBLOCK <  BLOCK  NUT1) ; 

CURRPTR  BLOCKPTR; 

CURRBLK  s-  BLOCK NUT; 

REPEAT 

CHARCOOE  LBUFCOOE; 

CASE  CHARCOOE  OF 
GOTOFLAG  :  BEGIN  (II 

X  s-  LBUFCOOE; 

Y  LBUFCOOE; 

(«  ignore  next  byte,  due  to  a  file  codification  «) 
SKIPBYTE  i-  LBUFCOOE; 

WHILE  OLDY  <  Y  DO 
BEGIN  121  - 

URITELN  (BEST); 

OLOY  OLDY  ♦  1; 

ENO;  121 

URITE(OEST,'  •  s  X); 

ENO;  (II 
PAGEFLAG  ;  BEGIN  (3) 

URITELN  (DEST); 

URITELN (DEST); 

URITELN (DEST); 

OLDY  TOPflAX; 

ENO;  (3) 

ENO I  TEH  :  ; 

END;  (*  cases  e) 

IF  (CHARCOOE  >-  32)  AND  (CHARCOOE  <-  126)  THEN 
BEGIN  14) 

SCREEN [X,YJ  t-  CHR (CHARCOOE): 

X  s.X+1; 

URI TE  (DEST, CHR (CHARCOOE) ) ; 

ENO;  14) 
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UNTIL  CHARCOOE  -  END  1  TEH-, 
END:  (*  print  *) 


( . . . . - — I 

(*  Mate  things  to  the  console  *) 

PROCEDURE  LCONSOLE ; 

VAR  FiXCHAR  :  CHAR: 

GRAF  :  BOOLEAN; 

BEGIN 

OECOOEPR I  NT (BLK , BLKPTR) : 

GOTOXYI0.20): 

IF  SL0TNUT1  >  tlAXSAnPLES  THEN 
BEGIN  (3) 

URlTECItee  code  :  \  DIRECTORY. I TEHCOOE (SLOTNUn) > ; 

GOTOXY (0,21) ; 

URITECAnsuer 

CASE  ITEHINFO. ATYPE  OF 

CHARVALUE  :  URITELNC  * ,  ITEHINFO. ANSUER) : 

INTVALUE  :  URITELNC  * ,  ITEHIfFO.  INTANSUER) : 

SEVENCHR  :  BEGIN 

FOR  I  1  TO  1TEHDFO.ANSIERCOUNT  DO 
URITEC  * ,  ITEHINFO.CHRANSUER(I) ) ; 

URITELN; 

END; 

END;  (*  cases  *) 

GOTOXY (0.23); 

URITE('Press  <RET>  to  continue,  <ESC>  to  quit  ’); 

IF  GETCHAR ( (CHR (RET). CHR  (ESC)]. TRUE, TRUE. TRUE)  -  CHR(ESC)  THEN 
BEGIN  (5) 

CLOSE (FILEITEHINFO.LOQO ; 

EXIT (SEARCHTEXT) ; 

END  (41 
END: 

END;  (*  I  console  «) 

( - - ) 

(«  lists  i tea  text  and  data  to  file/printer  •) 

PROCEDURE  LFILE; 

BEGIN 

IF  SLOTNUT1  >  MAXSAHPLES  T)£N 
BEGIN  (21 

1*1  TELN  (OEST,  ’  Ite*  code  :  *  .DIRECTORY.  I TEfCOOE  (SLOTNUTI) ) ; 

URITELN (OEST) i 

URITELN (OEST,  ’  A  paraeeter  :  ’ ,  ITEHDFO.A) ; 

URITELN  (OEST.  ’  B  paraeeter  :  ’ . ITEHINFO.B) ; 

URITELN  (OEST.*  C  paraeeter  :  * ,  ITEflINFO.C)  j 
UR I TELN (OEST) ; UR I TELN (OEST) ; 

END:  (2) 

LISTPRINT (BLK, BLKPTR) ; 

URITELN(DEST); 

URITELN (OEST): 

IF  SLOTNUTI  >  HAXSAHPLES  THEN 
BEGIN  (3) 

URI TE (DEST,*  Answer (s)  *  * ) * 

CASE  ITEHINFO. A TYPE  OF 
CHARVALUE  :  URI TELN (DEST,  I TEMNFO. ANSUER) : 

INTVALUE  :  URITELN(DEST,  ITEHIfFO.  INTANSUER) ; 

SEVENCHR  :  BEGIN  (4) 

FOR  I  1  TO  ITEHDFO.ANSUERCOUNT  DO 
URITEIOEST.ITEniNFO.CHRANSlERtn,'  ’); 

URI TELN (DEST) ; 

ENO;  (4) 

END;  (e  cases  *) 

UR I TELN (DEST); 

END;  (3) 

FOR  I  1  TO  80  DO 
URI TE (DEST, ’-* ) ; 

UR I TELN (DEST ); URI TELN (OEST ) ; 

END;  (e  Ifi le  e) 
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PROCEDURE  GETSEARCHINFO; 

BEGIN 

PAGE (OUTPUT) i 
GOTOXY (20,0) j 

URITECENTER  KEYUOROS  TO  SEARCH  FOR’); 

URI TELNs 
REPEAT 
URITELN; 

URITELN! 

'You  »ay  have  up  to  10  keywords.  How  eanu  keywords  would  you  like  to  enter?’); 
URITELN; 

URI TE ( 

’Enter  U  of  key  words  and  then  press  <RET>  :  ’); 

REAOLN  (NUfIKEYS) ; 

IF  NUflKEYS  >  10  THEN  SOU  AUK; 

IF  NUTIKEYS  <-  0  THEN 
EX  I T(SE ARCHTEXT); 

UNTIL  NUOKEYS  <-  10; 

URITELN; 

UT.ITELN; 

URITELN( 

*  s»s »»'»»**•  Enter  your  keyword  and  then  press  <RET>  l . 

URITELN; 

FOR  I  ;-  1  TO  NUHKEYS  00 
BEGIN 
URITELN; 

URI TE(’ Keyword  ’.I.’  ;  ’); 

REAOLN (KEYSTR); 

KEYU0R0II1  KEYSTR; 

END; 


PAGE (OUTPUT) ; 

GOTOXY  (20.0); 

URI  Tfc (’OUTPUT  SELECT  MENU’); 

GOTOXY (0.4); 

URITE(*Select  one  of  the  following  options  by  entering  its  nuaber.’); 
GOTOXY  (16. 8); 

URITECl.  QUIT’); 

GOTOXY (16,9) ; 

URI TE (‘2.  SEARCH  RESULTS  TO  CONSOLE’); 

GOTOXY (16. 10); 

URI  TEC  3.  SEARCH  RESULTS  TO  PRINTER’); 

GOTOXY (16. 11); 

URITEC4.  SEARCH  RESULTS  TO  FILE’); 

GOTOXY (16. 18); 

URITECEnter  Choice  U  :  ’); 

SELECT  GETCHAfi(  Cl’ . .  ’4*1 ,  TRUE, TRUE,  TRUE) ; 

CONSOLE  s-  FALSE; 

CASE  SELECT  OF 

•1’  :  EXIT (SEARCHTEXT) ; 

•2’  :  CONSOLE  TRUE; 

*3’  :  REURITEIOEST.UNITNUTFRtNTER); 

•4’  :  GETNEUFILE; 

EM); 

EM);  (*  get  searchinfo  e) 

( . ) 

BEGIN  (*  searchtext  *) 

(*  get  the  eubtest  you  want  to  search  *) 

LOAOTEST (’Search  text  in  which  subtest?  :  ’); 

IF  ESCPROC  THEN  EX I T (SEARCHTEXT) ; 

TEXTLINE 

FOR  I  0  TO  MAX I TEHPOOL  00 
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RESULTS  III  0: 


GET SEARCH INFO; 

PAGE  (OUTPUT) j 

UR  I TE ( *  Search i ng* ) ; 

SLOTNUH  HAXSAHPLES  +  1; 

RESE  T (F I LE I  TEH I NFO , OATANAHE ) s 

REPEAT 

IF  DIRECTORY. I TEHCODE [SLOTNUHJ  >.  0  THEN 
BEGIN  f’.9) 

URITE  C  * . * ) s 

DATASLOT  HASH (SLOTNUH) ; 

SEEK (F I LE I TEHI NFO , DATASLOT ) ; 

GET (FILEI TEHINFO) : 

I  TEHI  NFO  FILEITEH1NFO*; 

BLK  I TEHINFO. ITEM8L0CK; 

BLKPTR  I  TEHINFO.  ITEHPTR; 


IF  NOT  I TEHINFO. GRAPHICS  THEN 
BEGIN 

KEYCOUNT  0; 

SCANQUEST  (BUC.BLKPTR) ; 

RESULTS tSLOTNUHl  KEYCOUNT; 

END; 

END;  (10) 

SLOTNUH  SLOTNUH  +  1; 

UNTIL  (SLOTNUH  >  HAXITEHPOOL) j 

PAGE (OUTPUT) ; 

FOR  K  :  -  1  TO  NUTKEYS  DO 
BEGIN 
URITELN; 

URITE ( 

Questions  which  contained  ’  ,K,'  key(s)  assess**’); 

URITELN; 

URITELN; 

FOR  I  0  TO  HAXITEHPOOL  DO 
BEGIN 

IF  RESULTS  III  -  K  THEN 
URITE  (DIRECTORY.  I TEHCOOE II 1/  ’); 

END; 

URITELN; 

URITELN; 

STALL; 

URITELN; 

URITELN; 

END; 


IF  NOT  (CONSOLE)  THEN 
CLOSE (OEST, LOCK); 
END;  (*  I isti teas  *) 


(*  maximum  U  of  subteats  per  examines  e) 
STESTS  -  205 

(*  subtest  directory  *) 

TINOEXNAME  -  ‘CATOATA^ESTINOEX. OATA's 

(1AXI  TEnPOOL  -  3005 

(*  maximum  allowable  subtests  given  •) 
GflAXSUBTEST  -  20s 

(m  maximum  spaces  in  directory  *) 
flAXSUBTESTS  -  20; 

(*  printer  unit  number  ») 

UNI TNUHPR INTER  -  ’PRINTER: *i 

VERSION  -  ’ t 1.031 ‘ : 


TYPE  (*  test  directory  *) 

DIROATA  -  PACKED  RECORD 

UNUSED  :  BOOLEAN; 

TESTNATC  s  STRING: 

ITEHCOOE  :  PACKEO  ARRAY 

[0..nAXITEMPOOL] 

OF  INTEGER: 

END: 

(*  social  security  U  *) 

IDTYPE  -  PACKEO  ARRAY  10.. 81  OF  CHAR: 

(m  coding  speed  answer  *) 

SEVEN  TYPE  -  PACKED  ARRAY  (1 . .  7]  OF  CHAR; 

(•  response  types  *) 

I TENRESPONSES  -  (CHARVALUE, INTVALUE.SEVENCHR) : 

SETOFCHAR  -  SET  OF  CHAR; 

(m  examinee  directory  e) 

INDEX  -  PACKED  ARRAY  10. .HAXEXAHINEE1  OF  PACKED  RECORD 

(m  true  — >  trecord  available  m) 
UNUSED  :  BOaEAN; 

(*  soc i a  I  aecur i ty/ i d  key  *) 

ID  «  IDTYPE; 

END; 

(e  examinee  pre-testing  data  *) 

EXAOEINFO  -  PACKEO  RECORD 

(m  social  security  tt  *1 
ID  *  IOTYPE; 

ORIENTATIONTinE, 

PREVTIttELASTTEST, 

(*  number  of  proctor  calls  *) 

NunpRoc, 

(m  total  time  spent  at  computer  m) 

TOTTinECONSOLE. 

(*  number  of  key  in  errors  ») 

NUHERRORS, 

(*  U  of  last  test  taken  -  1,  eg.-  if  on  test  5  then  *) 

(m  this  variable  holds  a  value  of  4.  m) 

LASTTEST  :  INTEGER; 

(*  date  of  log  in  e) 


.'-V- V'>VvV\Y\ 
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DATE  :  PACKED  ARRAY [0. .51  OF  CHARj 

(m  time  at  log  in  «) 

TIME  :  PACKED  ARRAYI0..3)  OF  CHAR; 

(*  testing  configuration  given  to  this  examinee  *) 

<*  record  U  of  subtest  directories  *) 

TESTORDER, 

(m  adaptive  strategy  *) 

STRATEGY. 

(*  tf  of  questions  per  test  *) 

TESTLENGTH  :  PACKED  ARRAY  [1. .GMAXSUBTEST) 

OF  0. .128; 


(m  initial  variance  for  each  test  ») 

CKERROR  :  ARRAY 11. .GMAXSUBTEST)  OF  REAL; 

(«  flags  to  control  flow  of  subtests  «) 

SUBSTOP  :  PACKED  ARRAY  [1 .. GMAXSUBTEST]  OF  BOOLEAN; 

END; 

(m  examinee  personal  data  *) 

P INF  ORE C  .  RECORD 

LASTNAME  ;  PACKED  ARRAY [0. . 14]  OF  CHAR; 

F I RSTNAME  :  PACKED  ARRAY [0. . 11)  OF  CHAR; 

MINITIAL  :  CHAR; 

CURRADORESS, 

HOMEOFREC  :  PACKED  ARRAY  10.. 11  OF  CHAR; 

CITIZENSHIP  :  PACKED  ARRAY [0.. 3)  OF  CHAR; 

SEX  :  CHAR; 

POPGROUP  :  PACKED  ARRAY f0. . 4]  OF  CHAR; 

ETHNIC  :  PACKED  ARRAYI0..1I  OF  CHAR; 

MARITAL  :  CHAR; 

DEPENDANTS  t  PACKED  ARRAYC0..1J  OF  CHAR; 

BIRTHOATE  :  PACKED  ARRAY [0.. 7]  OF  CHAR; 

EDUCATION  :  PACKEO  ARRAY  10.. 2)  OF  CHAR; 

TESTIO  ;  PACKED  ARRAY  10.. 2]  OF  CHAR; 

AFQT  :  PACKED  ARRAY  10.. 1]  OF  CHAR; 

ASVAB  :  PACKED  ARRAY  10.. 43]  OF  CHAR; 

ENLISTOATE, 

ACTSERDATE  «  PACKEO  ARRAY (0. .7]  OF  CHAR; 

ENL  :  PACKED  ARRAY [0.. 4]  OF  CHAR; 

AFEES  :  PACKED  ARRAY  10.. 1J  OF  CHAR; 

BOS  :  PACKEO  ARRAY  I0..1]  OF  CHAR; 

POST ASVAB  :  PACKED  ARRAY  10.. 43]  OF  CHAR; 

STESTORDER  :  PACKED  ARRAY  10.. 59)  OF  CHAR; 

END; 


(•  question  scores  ,  data  on  examinee  with  respect  to  queetion  «) 
ITEM  -  PACKEO  RECORO 

ACORRECT  t  PACKEO  ARRAY [0.. SI  OF  BOOLEAN; 

ACOUNT, 

(*  which  question  he  took,  code  8  e) 

ITEMNUM  :  INTEGER; 

(*  true  ••>  answered  it  correctly  *) 

CORRECT  :  BOOLEAN; 

(«  ability  after  answering  this  question  ») 

THETA, 

(*  variance  after  answering  this  question  *) 

ERROR, 

(«  time  spent  answering  this  question  «) 

LATENCY  :  REAL; 
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(*  hou  he  ansuered  the  question  «) 

CASE  RTYPE  s  I TEMRESPONSES  OF 
CHARVALUE  :  (RESPONSE  :  CHAR); 

I  NT VALUE  :  (INTRESPONSE  :  INTEGER); 

SEVENCHR  :  (CHRRESPONSE  :  SEVENTYPE); 

END; 

(*  test  scores  of  exaainee  results  «) 

SIB  TEST  -  PACKED  RECORD 

STTirt, 

STINSTRTIME. 

STPROCTCALLS, 

MOOSTTIME  :  INTEGER; 

(«  number  of  questions  he  ansuered  e) 

NUn ITEMS. 

(*  tt  of  correct  responses  *) 

NUMCORR  :  0..128; 

(*  final  estiaata  of  ability  «) 

ESTABILITY, 

(*  final  variance  of  ability  *) 

VARIANCE  :  REAL; 

(*  results  on  question  level  *) 

ITEM1NF0  :  PACKED  ARRAY  10. .QUESTIONS)  OF  ITEM; 

END; 


VAR  (*  file  naaee  «) 

PINFONAME. 

INDEXNAME, 

INFONAME. 

-  RESULTS  s  STRING; 

BACKUP  ;  BOOLEAN; 

LETTERS, 01 GITS, CHARACTERS  «  SET  OF  CHAR; 
OUTPUT. 

COMMAND  :  CHAR; 

EXAMINEE  >  EXAMEINFO; 

FILEEXAMINEE  :  FILE  OF  EXAMEINFO; 

OIR  :  INDEX; 

FILEOIR  i  FILE  OF  INDEX; 

TESTS  :  SUBTEST; 

FILETESTS  :  FILE  OF  SUBTEST; 

(«  test  directory  «) 

DIRECTORY  :  OIROATA; 

FILEDIRECTORY  :  FILE  OF  OIROATA; 

(e  exaainee  personal  data  *) 

PIfFO  :  PINFOREC; 

F.NFOFILE  :  FILE  OF  PINFOREC; 

(«  output  file  for  test  results  e) 

OEST  «  TEXT; 

(a  string  buffer  *) 

LINEBUF  :  PACKED  ARRAY  10.. 79)  OF  CHAR; 


PROCEDURE  PAGE (DUMMY  ;  CHAR);  FORUARO; 

PROCEDURE  TOPOFFORM;  FORUARO: 

PROCEDURE  SOU AUK;  FORUARO; 

PROCEDURE  BLANKLINES (START. COUNT, ENOCURSOR  :  INTEGER):  FORUARO: 
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FUNCTION  GETCHAR(OKS£T  :  SETOFCHARj 

FLUSHQUEUE , ECHO , BEEP  :  BOOLEAN)  :  CHAR:  FORUARO; 
PROCEDURE  STALL:  FORUARO; 

PROCEDURE  F I LLBUF (CHARCNT  :  INTEGER: 

OKSET  :  SETOFCHAR;  ERASE  :  BOOLEAN);  FORUARO; 
PROCEDURE  GETNEUFILE;  FORUARO; 

PROCEDURE  SCRCONTROL (I , J.K  :  INTEGER):  FORUARO; 

PROCEDURE  TEXT40P1OOE;  FORUARO: 

PROCEDURE  TEXT80HOOE;  FORUARO: 

PROCEDURE  INVERSE:  FORUARO; 

PROCEDURE  NORMAL;  FORUARO; 

PROCEDURE  LOAOPOATA (RECORDNUM  :  INTEGER);  FORUARO; 

PROCEDURE  SAVEPOATA (RECORDNUM  ;  INTEGER);  FORUARO; 

PROCEDURE  LOAD INDEX;  FORUARO; 

PROCEDURE  LOAOEXAM I  NEE (RECNUM  :  INTEGER);  FORUARO; 

PROCEDURE  UPOATEEXAMINEE (RECNUM  :  INTEGER);  FORUARO; 

PROCEDURE  UPDATE INDEX;  FORUARO: 

PROCEDURE  LOAORESULTS (RECNUM  :  INTEGER);  FORUARO; 

PROCEDURE  UPOATERESULTS (RECNUM  :  INTEGER);  FORUARO; 

PROCEOURE  INITEREC;  FORUARO; 

FUNCTION  OIRINDEXNUMIIDNUM  ;  IOTVPE)  ;  INTEGER;  FORUARO; 

PROCEOURE  ENTERIO;  FORUARO; 

(*  utility  subroutines  *) 

(all  /TFILES/EMGR. D1R/E.UTL. TEXT  e) 

(«  disk  io  routines  «) 

<«$I  /TFILES/EMGR. DIR/E. IO.TEXT  *) 

(e  exaainee  Manager  subroutines  a) 

(etl  /TFILES/EMGR.OIR/E.SUBRT.TEXT  e) 

(«  log  -  in  exaainee  routines  e) 

(ell  /TFILES/EMGR. OIR/E. LOGIN. TEXT  e) 

(e  list  statue  of  exaMinees  in  directory  e) 

(etl  /TFILES/EMGR.OIR/E. STATUS. TEXT  e) 

(«  list  exaainee  file  data  «) 

(etl  /TFILES/EMGR.OIR/E. SUMMARV.TEXT  e) 

(e  remove  an  exaainee  froa  directory  a) 

(at I  /TFILES/EMGR. OIR/E. DELETE. TEXT  a) 

(a  fetch  exaainee  routines  a) 

(at I  /TFILES/EMGR.OIR/E. FETCH. TEXT  a) 

(a  set  up  files/directory  a) 

(atl  /TFILES/EMGR. DIR/E. ZERO. TEXT  a) 

(a  end  of  day  routines  a) 

(atl  /TFILES/EMGR.OIR/E. ENOOFOAY. TEXT  a) 

( . 

PROCEOURE  MENU: 

VAR  X.Y  ;  INTEGER; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY(18,0) ; 

URITE ('EXAMINEE  MANAGER  MENU  ’.VERSION); 

GOTOXY (0,4) ; 

UTITE (’Select  one  of  the  following  procedures  by  entering  its 
X  IS; 

Y  8; 

GOTOXY (X.Y); 

URITECl.  QUIT'); 

GOTOXY (X.Y+l) ; 

URITEC2.  LOG  EXAMINEE  INTO  SYSTEM' ); 

GOTOXY (X,Y*2>; 

URITEC3.  ENTER  EXAMINEE  PERSONAL  DATA’); 

GOTOXY (X.Y+3) ; 

URITEC4.  VIEU  EXAMINEE  RECORDS’); 


number . ' ) 
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GOTOXY  (X.Y+4); 

WRITE  ('5.  LIST  DIRECTORY’): 

GOTOXY (X.Y+S); 

WRITE  (’6.  SEPARATE  OONE/NOT  DONE  EXAMINEES’ ) ; 

GOTOXY (X.Y+6) ; 

WRITE! *7.  SELECT  FILES  TO  MANAGE’): 

GOTOXY  (X, Y+7) : 

WRITEC8.  REMOVE  EXAMINEE’): 

GOTOXY (X.Y+8); 

URITEC9.  PURGE  DIRECTORY’): 

GOTOXY  (0,8); 

URITE (’Currently  Managing  ’); 

INVERSE: 

IF  BACKUP  THEN 
URITECDONE  EXAMINEE’) 

ELSE 

URITE(’SESSION’): 

NORMAL: 

WRITE!’  files.’); 

GOTOXY (X.Y+11): 

WRITECEnter  Choice  U  :  ’); 

END:  («  Menu  *) 

l . . - . . . . . ) 

(*  specify  which  files  you  want  to  look  at  •) 

PROCEDURE  FILESPECIFY: 

VAR  FCOT1MAND  :  CHAR; 

BEGIN 

PAGE (OUTPUT); 

(*$!-») 

RESET (FILEDIR.OONEINDEX) ; 

(«•!+*) 

IF  I  ORE SUL  T  <>  0  TfCN 
BEGIN  (1) 

WRITELN: 

WRITELNC Back-up  files  do  not  exist.*); 

WRITELN: 

STALL: 

EXIT (FILESPECIFY); 

END  (1) 

ELSE 

BEGIN  (2) 

CLOSE (FILEDIR.NORMAL): 

GOTOXY  (20,0); 

WRITECSPECIFY  FILES  MENU’); 

GOTOXY (0.4); 

WRITECSelect  one  of  the  following  options  by  entering  its  nuMber.*); 
GOTOXY (16. 9): 

URITECl.  QUIT’); 

GOTOXY  (16. 10): 

WRITE(*2.  MANAGE  SESSION  FILES’); 

G0T0XY(16,11): 

WRITE (’3.  MANAGE  DONE  EXAMINEES’): 

REPEAT 

GOTOXY (0.6): 

WRITECYou  currently  have  option  :  ’); 

IF  BACKUP  THEN 
URITE  (’3*) 

ELSE 

WRITEC2’); 

INVERSE: 

IF  BACKUP  THEN 
BEGIN  (3) 

GOTOXYU6, 11 ) ; 

URITE(’3.  MANAGE  DONE  EXAMINEES’); 

ENO  (31 
ELSE 

BEGIN  (4) 

GOTOXY  (16. 10); 

WRITEC2.  MANAGE  SESSION  FILES’); 

ENO:  (4) 

NORMAL: 


Apr  4  18:39  1983  EMGR. DIR/E. MGR. TEXT  (  Examinee  Manager  driver)  Page  7 


GOTOXYUG.15); 

URITEP  ’); 

G0T0XY(16,15) : 

URITEPEnter  Choice  U  :  ’); 

FCOMMAND  GETCHARl  1*1* ..  *3*1  .TRUE, TRUE, TRUE)  ; 
IF  BACKUP  THEN 
BEGIN  (5) 

GOTOXY (16,11); 

URITEP3.  MANAGE  DONE  EXAMINEES’ ) : 

END  (5) 

ELSE 

BEGIN  (6) 

GOTOXY (16. 18): 

IAITEC2.  MANAGE  SESSION  FILES’): 

END:  (6) 

CASE  FCOMMAND  OF 

T  :  EXIT(FILESPECIFY): 

’2’  :  BEGIN  171 

I  NOEXNAME  ZINDEXNAME: 

INFONAME  «-  ZINFONAME: 

RESULTS  ZRESULTS: 

P INFONAME  :•  ZP INFONAME: 

BACKUP  FALSE: 

END:  (7) 

’3’  :  BEGIN  (8) 

I  NOEXNAME  DONE INDEX: 

INFONAME  DONE  INFO: 

RESULTS  i-  DONERESULTS: 

P INFONAME  OONEP1NFO: 

BACKUP  TRUE: 

END  (8) 

END:  (e  cases  «) 

UNTIL  FCOMMAND  -  ’1’: 

END:  (2) 

END;  (e  fi  leaped  fg  «) 


l . ) 

BEGIN  (e  eain  prograa  e) 

PAGE (OUTPUT): 

DIGITS  I’8’..’9’): 

LETTERS  PA’ , . ’Z’ , ’a’ . . ’z’l : 

CHARACTERS  (CHR (32) . .CHR (126)1 ; 

FILLCHAR(LINEBUF (0) ,80, ’  ’): 

(«  files  required  *) 

I NOEXNAME  ZINDEXNAME: 

INFONAME  ZINFONAME: 

RESULTS  ZRESULTS: 

P INFONAME  i.  ZP INFONAME: 

BACKUP  FALSE: 

REPEAT 

MENU: 

COMMAND  GETCHARl  PI*. .  *9’]  .TRUE, TRUE, TRUE) : 

CASE  COMMAND  OF 

•1’  «  i 

•2’  :  BEGIN  (1) 

I  NOEXNAME  ZINDEXNAME: 

INFONAME  ZINFONAME: 

RESULTS  ZRESULTS; 

P INFONAME  ZP INFONAME; 

LOG INEXAM I  NEE; 

IF  BACKUP  THEN 
BEGIN  12) 

I  NOEXNAME  :-  DONE  INDEX; 

INFONAME  DONE  INFO; 

RESULTS  OONE RESULTS; 

P1NFONAME  DONEP1NFO; 

END:  (2) 

ENO;  (1) 

’3’  :  ENTEROATA; 
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{asaseaa»e»easa.M*a»«»«aaa«sss  ssssseeaaaatseaeessessaeeaaaeeaaesaasassaaaaesaat) 
(«  «) 

(*  Textfile  :  EMGR.DIR/E.UTL. TEXT  Volume  :  TF1LES  *) 

(a  Codefile  :  E. MGR. CODE  (’Include*  file)  Volume  :  CATDATA  «) 

(*  *) 

(esseeeassassaaaaaTrreaeeaaaassMissasiMaaiMsssssaaaaaseeeatsaaMsaf  assssasasaaea) 
(*  DEC.  1.  1982  NPROC  a) 

(aaaas’aasseeaasaaasnaaaaeaaaaaaaaaaaeaasaef  asreasaeeasaaseseta,eeaaaseaaaaaaaaaaa) 


(*  clear  the  screen  a) 

PROCEDURE  PAGE: 

BEGIN 

(a  for  apple  2  a) 

URITE  (CHR(12>); 

(«  for  apple  3  e) 

URITE (CHR  (28) ) ; 

GOTOXY  (0,0)  s 
END:  (*  page  a) 

( - - - - » 

(«  form  feeds  the  printer  *) 

PROCEDURE  T0P0FF0RM; 

BEGIN 

REUR I TE (DEST . UN I TNUflPR I NTER) j 
URI TE  (DEST.CHR  (12) ) ; 

CLOSE (OEST, NORMAL); 


END:  («  top  of  form  *) 

( . . . . - . - . - . ) 


(**m*  rings  the  bell  aaaa) 
PROCEDURE  SQUAUK; 

BEGIN 

URITE (CHR (BELL)): 

END:  (•  squauk  «) 


I . . . . ) 

(aaaa  blank  out  lines  aaaa) 

(«  given  a  g  location  to  begin,  tt  of  lines  to  erase,  which  line  *) 


(*  to  leave  cursor,  erases  onlg  40  column  width.  *) 

PROCEDURE  BLANKLINES: 

VAR  I  i  INTEGER: 

BEGIN 

GOTOXY (0, START); 

FOR  I  t-  1  TO  (COUNT-1)  00 
URITELNC  ’  :  39); 

URITEC  ’  :39) ; 

GOTOXY (0. ENOCURSOR) ; 

END;  (e  blank  lines  m) 

I - 1 

(«  read  an  acceptable  character  froa  the  kegboard  a) 

(a  given  a  eat  of  acceptable  characters  to  read,  a) 

(a  and  flags  if  gou  want  computer  to  flush  the  a) 

(a  tgpe  ahead  buffer,  beep  if  a  bad  keg  is  presseda) 

(a  or  echo  the  character  pressed.  a) 

FUNCTION  GETCHAR; 

VAR  MASK  ;  PACKED  ARRAY (0..01  OF  CHAR; 

BEGIN 

IF  FLUSHQUEUE  THEN  UNITCLEAR(2) ;  (a  flush  buffer  a) 

REPEAT 

UN  I  TREAD  (2,  flASK ,  1 ) ; 

IF  BEEP  ANO  NOT  (MASK (01  IN  OKSET)  THEN  SQUAUK; 

UNTIL  MASK  101  IN  OKSET; 

IF  ECHO  ANO  (MASK [0]  IN  (CHR (32) . .CHR (126)] )  THEN 
URITE  (MASK  (01); 

GETCHAR  i -  MASK  [0] ; 

END;  (a  getchar  a) 
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(«***  display  a  message/wait  for  a  keystroke  ***») 
PROCEDURE  STALL; 

VAR  STALLCHAfl  ;  CHAR; 

BEGIN 

URITECPress  <RET>  to  continue  ’); 

STALLCHAR  i- 

GETCHAR ( (CHR (RET)  ,CHR  (ESC)) ,  TRUE. FALSE,  TRUE) ; 
IF  STALLCHAR  -  CHR(ESC)  THEN  EX  IT (PROGRAM ) ; 

ENO;  (e  eta  1 1  *) 


(*  read  in  a  string  and  save  in  a  temporary  buffer  *) 
(«  allows  control  on  what  characters  eay  be  typed  *) 
(*  and  the  number  of  characters  typed.  *) 

PROCEDURE  FILLBUF; 

VAR  I  s  INTEGER; 

IOCHAR  ;  CHAR; 

BEGIN 
I  0; 

REPEAT 

IF  I  >  (CHARCNT-1)  THEN 
IOCHAR  : - 

GETCHAR  ( (CHR  (LARROU)  ,C)f)  (RETH  .  TRUE.  TRUE.  TRUE) 

ELSE 

BEGIN  (1) 

IOCHAR  ; - 

GETCHAR (OKSET  ♦  (CHR (RET). 

CHR (LARROU) . CHR (RARROU ) 1 . 

TRUE. TRUE. TRUE); 

IF  IOCHAR  IN  OKSET  T)€N 
BEGIN  (2) 

LINEBUF ID  «-  IOCHAR; 

I  t-  I  +  1; 

ENO;  (21 
END;  (1) 

IF  IDCHAR  -  Of)  (LARROU)  THEN 
BEGIN  (3) 

IF  I  -  0  TTCN 
SOU  AUK 
ELSE 

BEGIN  (4) 

URITE (CHR (LARROU)); 

I  »-  I  -  It 
IF  ERASE  THEN 
BEGIN  (5) 

URITEC  *); 

URITE (CHR (LARROU)); 

LINEBUF  (I)  1  ’; 

END;  (5) 

END;  (4) 

END  13) 

ELSE 

IF  IDCHAR  -  CHR  (RARROU)  T)€N 
BEGIN  (6) 

URI TE  (LINEBUF  (ID; 

I  I  ♦  1; 

END;  (Si 

UNTIL  IOCHAR  -  CHR(RET) ; 

ENO;  (*  f i I Ibuf  «) 


(«***  open  a  new  text  file 
PROCEDURE  GETNEUFILE; 

VAR  FILENAME  ;  STRING; 
ERRNUM  ;  INTEGER; 
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(***«  get  a  legal  filename  ***») 

FUNCTION  NAME OK  :  BOOLEAN: 

VAR  I  :  INTEGER: 

BEGIN 

IF  FILENAME  -  ’* 

THEN  BEGIN  (1) 

FILENAME  DEFAULTFILE: 

GOTOXY (44,0) : 

WRITE (FILENAME); 

END  III 

ELSE  IF  FILENAME  Cl ]  -  CHR(eec)  THEN  EXIT (PROGRAM): 

IF  (POS(*. TEXT ’.FILENAME)  <>  (LEFETH  (FILENAME)  -  4))  OR 
(LENGTH (FILENAME)  <  G  ) 

THEN  FILENAME  CONCAT (FILENAME, * . TEXT’ ) : 

(**I-») 

RESET (OEST. FILENAME): 

(*»I+e) 

IF  IORESULT  -  0 
THEN  BEGIN  (2) 

WRITELN; 

URITELN; 

URI TE  (’Destroy  old  *  .FILENAME,  ’  ?  Press  ”N”  or  ”Y”  ’); 

IF  GETCHARd’y’.’n’.’Y’.’N’l. TRUE. TRUE, TRUE)  IN  I’Y’.’y’] 

THEN  BEGIN  (31 

CLOSE (OEST, PURGE): 

REUR I  TE  (OES  T .  F I  LENATE ) : 

NAMEOK  TRUE: 

END  (3) 

ELSE  BEGIN  (4) 

CLOSE (DEST. LOCK): 

NAMEOK  FALSE; 

END;  (4) 

END  (2) 

ELSE  BEGIN  (5) 

(*$I-«) 

REUR I TE (OEST , F I LENAHE ) : 

(*•1 +*) 

ERRNUM  IORESULT; 

IF  IORESULT  <>  0 
THEN  BEGIN  <G) 

WRITELN; 

URITELN; 

URITELNCCannot  open  \ FILENAME,’  lo  error  0’ .ERRNUM) ; 
NAMEOK  FALSE; 

END  (6) 

ELSE  NAMEOK  TRUE: 

END;  (S) 

END:  (*  nameok  «) 


BEGIN  (*  getneufile  *) 

REPEAT 

PAGE (OUTPUT); 

URITECEnter  output  file  naee,  then  press  <RET>  :  ’); 
REAOLN (FILENAME): 

UNTIL  NAMEOK; 

END: 


(«  send  control  characters  to  screen  *) 

PROCEDURE  SCRCONTROL;  (  PASCAL  interface  to  Screen  Control) 

VAR  N:  INTEGER;  I  APPLE  III  Standard  Device  Drivers) 

G_ARRAY: PACKED  ARRAY (0. .  3)  OF  0..2S5;  I .  Pages  34  to  4G.) 

BEGIN 

G  ARRAY  (0);-  I;  G.ARRAY  (1  ]  s  - J;  G.ARRAY  121 : -K; 

UNI TURI TE (1 ,G_ARRAY, 3. . 12) ; 

END;  (*  scr control  *) 


(*  switch  to  40  column  screen  «) 


235 
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PROCEDURE  TEXT40MOOEj 
BEGIN 

SCRCONTROL (18,0,28) ;  (Text  Mode  408U,  followed  by  c I  ear screen. ) 

ENO:  (*  text40mode  *) 

I- . . . . 

(«  switch  to  80  column  screen  *) 

PROCEDURE  TEXT80HOOE: 

BEGIN 

SCRCONTROL (04,0,0) ;  (Restore  Viewport  to  its  original  condition.! 
SCRCONTROL  (16,2,28) ;  (Text  Mode  80,  followed  by  clearscreen.l 
END;  («  text80mode  «) 


(«  turn  on  reverse  video  *) 
(*  black  on  white  *) 

PROCEDURE  INVERSE; 

BEGIN 

SCRCONTROL (18,0,0); 

ENO;  («  inverse  s) 
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u 


Textfile  :  EMGR. DIR/E. SU8RT. TEXT  Volume  :  TFILES 

Codefile  :  E. MGR. CODE  ('Include'  file)  Volume  :  CATDATA 


DEC.  1.  1982 


(*  initialize  the  examinee  records  «) 

PROCEDURE  INI TERECj 
VAR  I  :  INTEGER: 

BEGIN 

(*  initialize  test  taking  information  *) 

WITH  EXAMINEE  DO 
BEGIN  (1) 

ID  '  ': 

LASTTEST  GMAXSU8TEST:  (*  mark  no  tests  taken  yet  *) 
NUMPROC  0; 

TOTTIMECONSOLE  0: 

NUMERRORS  0: 

PREVTIMELASTTEST  0; 

ORIENTATIONTIME  0: 

END:  11) 

(*  initialize  personal  info  *) 

WITH  PINFO  00 
BEGIN  (2) 

LASTNAME  '  ': 

FIRSTNAME  ’  '; 

MINI TIAL  '  *; 

CURRADORESS  *  '; 

HOMEOFREC  '  ' : 

CITIZENSHIP 

SEX 

POPGROUP  *  ' : 

ETHNIC  '  '; 

MARITAL  ’  '; 

DEPENOANTS  '  ': 

BIRTHOATE  '  's 

EDUCATION 

TESTIO  ’  '» 

AFQT 

ASVAB  ' 

ENLISTDATE  '  ': 

ACTSEROATE 
ENL  '  *s 
AFEES 

BOS  '  'j 

POST ASVAB  ' 

STESTOROER  * 

END:  (2) 

(*  initialize  the  tests  results  record  •) 

FOR  I  0  TO  QUESTIONS  DO 

TESTS.  ITEMINFO  III .  I  TEMNUT1  NIL; 

UITH  TESTS  DO 
BEGIN  131 
STTIME  :-  0; 

STINSTRTIME  0; 

STPROCTCALLS  0; 

NUMITEMS  0; 

NUMCORR  0; 

ESTABILITY  0; 

END;  (3) 

END:  (*  initerec  *) 


(*  get  directory  index  for  an  id  number  *) 
FUNCTION  OIRINOEXNUM; 

VAR  I  :  INTEGER: 
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DONE  :  BOOLEAN; 

BEGIN 
LOAO INDEX; 

I  0; 

DONE  FALSE; 

OIRINOEXNUM  NIL; 

REPEAT 

IF  (OIRm.ID  •  IDNUn) 

AND  (NOT  (DIR (I). UNUSED))  THEN 
BEGIN  (1) 

DONE  TRUE; 

DIR1NDEXNUM  s-  I; 

END;  111 
I  l  +  1; 

UNTIL  (I  >  HAXEXAfllNEE)  OR  (DONE); 
END; 


(«  get  exaainee  id  nuaber  e) 

PROCEDURE  ENTERIO; 

VAR  INSTRUCTIONS  :  STRING; 

OKIO  :  BOOLEAN: 

BEGIN 

OKIO  FALSE; 

REPEAT 

PAGE (OUTPUT); 

FILLCHAR(L!NEBUF [0] ,9, '  ’); 

GOTOXY (0, 10) ; 

INSTRUCTIONS  :•  ’Enter  Exaainee  Social  Security  number  : 
(*  read  in  9  digit  social  security  number  e) 

URITEI  INSTRUCTIONS,’ .  <return>’); 

GOTOXY (LENGTH ( INSTRUCTIONS) . 10) ; 

FILLBUFO.OIGITS.TRUE); 

HOVELEFT  (L I NEBUF  (0) . EXAfll fCE ,  1 0  (01 . 9) ; 

IF  EXAT1INEE.  10  -  ’  ’  THEN 

SQUAUK 
ELSE 

OKID  s-  TRUE; 

UNTIL  OKIO; 

FILLCHAR(LINEBUF [01 ,9,  *  ’); 

END;  («  enter  id  «) 
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Textf i le  :  EMGR. DIR/E. 10. TEXT  Volume  :  TFILES 

Codefile  :  E. MGR. CODE  (’Include’  file)  Volume  :  CATOATA 


OEC.  1.  1982 


(*  loads  examinee  personal  data  *) 
PROCEDURE  L0A0P0ATA; 

BEGIN 

RESET(PINFOFILE.PINFONANE); 

SEEK  (PI  NFOF  I  LE .  RECORONUM ) : 

GET  (P I NFOF I LE): 

PINFO  PINFOFILE*; 

CLOSE (P I NFOF I LE. LOCK): 

ENO;  (*  load  personal  data  *) 


(«  saves  examinee  personal  data  *) 
PROCEDURE  SAVEPOATA: 

BEGIN 

RESE  T (P I NFOF I LE . P I NFONAME ) ; 

SEEK  (PI  NFOF  I  LE .  REC0R0NUT1 ) : 
PINFOFILE*  :-  PINFO; 

PUT (P I NFOF I LE); 

CLOSE (F I NFOF I LE. LOCK); 

ENO;  (*  load  personal  data  «) 


(*  loads  examinee  directory  *) 
PROCEDURE  LOAD  INDEX; 

BEGIN 

RESET  (FILEOIR. INOEXNAOE) ; 
SEEK (F1LEOIR.0) ; 

GET (FILEOIR) ; 

DIR  FILEOIR''; 

CLOSE (FILEOIR, LOCK) ; 


(*  loads  examinee  personal  data  *) 
PROCEDURE  LOADEXAHINEE; 

BEGIN 

RESET (FILEEXAMINEE, I NFONAME) ; 
SEEK  (F I  LEEXAfl  I  NEE ,  RECNUH ) ; 

GET (FILEEXAMINEE); 

EXAMINEE  :-  FILEEXAMINEE*; 

CLOSE (FILEEXAMINEE, LOCK) ; 


(*  updates  examinee  personal  data  record  *) 
PROCEDURE  UPOATEEXAMINEE; 

BEGIN 

RESE T (F I LEEXAM I  NEE , I NFONAME ) ; 

SEEK  (F I  LEEXAM  I  NEE .  RECNUfl ) ; 

FILEEXAMINEE*  :-  EXAMINEE; 

PUT (FILEEXAMINEE); 

CLOSE (FILEEXAMINEE, LOCK ) ; 


(*  updates  examinee  directory  «) 
PROCEDURE  UPOATE INDEX; 
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RESET (F 1 LED I R, 1  NOEXNAME) ; 
SEEK  (FILEDIR.0); 

FILEDIR~  DIR; 

PUT (FILEDIR) ; 

CLOSE (FILEOIR. LOCK); 


(*  loads  examinee  test  scores  «) 
PROCEDURE  LOAORESULTS; 

BEGIN 

RESET (FILETESTS. RESULTS): 

SEEK (F ILETESTS.RECNUM) ; 

GET  (FILETESTS); 

TESTS  FILETESTS^; 

CLOSE (FILETESTS. LOCK); 


(«  updates  examinee  test  scores  *) 
PROCEDURE  UPDATERESULTS; 

BEGIN 

RESET  (FILETESTS, RESULTS) s 
SEEK (FILETESTS. RECNUM); 
FILETESTS''  TESTS; 

PUT (FILETESTS); 

CLOSE (FILETESTS. LOCK); 


J  .»  '■x~*  x  w  » 


sr*nr»  v"*  ;  "•  t1 
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Textfile  :  EMGR.D1R/E. LOGIN. TEXT  Volume  :  TFILES 

Codefile  :  E. MGR. CODE  (’Include*  file)  Volume  :  CATDATA 


DEC.  14,  1982 


(*  log  in  the  examinee,  put  them  into  the  system  *) 
PROCEDURE  LOG INEXAM I NEE ; 

VAR  ERECNUM  :  INTEGER-, 

EID  :  IDTYPE; 

DONE  :  BOOLEAN; 

CHOICE  :  CHAR; 


(*  locate  unused  slot  in  directory  «) 
(*  returns  nil  if  no  space  left.  m) 
FUNCTION  OPENSLOT  :  INTEGER; 

VAR  I  :  INTEGER; 

DONE  :  BOOLEAN; 

BEGIN 
I  8; 

REPEAT 

IF  OIRII). UNUSED 
THEN  DONE  TRUE 
ELSE  I  I  +  1; 

UNTIL  (I  >  MAXEXAMINEE)  OR  (DONE); 
IF  DONE 

THEN  OPENSLOT  :■  I 
ELSE  OPENSLOT  NIL; 


<«  get  directory  index  for  an  id  number  *) 

(*  returns  nil  if  no  such  id  exists.  *) 
FUNCTION  OIRINDEXMJMdDNUn  :  I0TYPE)  :  INTEGER 
VAR  I  :  INTEGER; 

DONE  :  BOOLEAN; 

BEGIN 
LOAD INDEX; 

I  :  •  8; 

DONE  FALSE; 

OIRINDEXNUH  NIL; 

REPEAT 

IF  (OIRIII.IO  -  I0NUM)  AND 
(NOT  (DIR III. UNUSED))  THEN 
BEGIN  (1) 

DONE  »-  TRUE; 

DIRINOEXNUn  I; 

END;  (1) 

I  I  ♦  1: 

UNTIL  (I  >  MAXEXAMINEE)  OR  (DONE); 

END:  (*  dirindexnum  *) 


GIN  («  log  in  «) 

(*  initialize  line  buffer  *) 

FILLCHARILINEBUF 181 , 79, *  ’); 

DONE  FALSE; 

REPEAT 

ENTER! 0;  (*  get  id  number  «) 

EIO  EXAMINEE. 10; 

ERECNUM  DIRINDEXNUM (EXAMINEE. 10) ; 

IF  ERECNUM  >■  8  THEN  (*  examinee  exists  in  directory  already  *) 
BEGIN  (1) 

LOAOEXAMINEE (ERECNUM) ; 

URITELN; 
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URITELN; 

UR I TELN I  *  Exae  i nee  ' .EXAMINEE. ID, *  previouslg  logged  in.’); 
URITELN; 

IF  EXAM I NEE. LAST TEST  >  GMAXSUBTEST  THEN 
URITELNCThis  examinee  has  conpleted  all  testing.*); 
URITELN; 

STALL; 

ENO  111 
ELSE 

BEGIN  12) 

(e  find  open  directory/set  record  U  to  store  exaeinee  e) 
ERECNUTI  OPENSLOT; 

IF  ERECNUH  <  0  THEN 
BEGIN  (3) 

PAGE  (OUTPUT): 

GOTOXY (0, 10) ; 

URITELNCNo  root  in  directory  put  exaeinee!*); 

URITELN; 

URITELN: 

STALL: 

EXIT  ( LOG  I NEX  ATI  I  hCE ) ; 

ENO  13) 

FI  SF 

BEGIN  (41 

LOAOEXAHINEE  (ERECNUTI) ; 

01 RIERECNUTU. UNUSED  :-  FALSE; 

OIR  (ERECNUTI) .  ID  :-  EIO; 

EXAMINEE. NUTPROC  :-  0; 

EXAMINEE. 10  :-  EIO; 

EXAMINEE.LASTTEST  :•  GMAXSUBTEST ;  («  flag  neu  exaeinee  e) 

(«  update  exaeinee  record  on  disk  *) 

UPOA  TEEX AM I  NEE ( ERECNUM ) ; 

(«  update  exaeinee  directory  e) 

UPDATE INDEX; 

URITELN; 

URITELN; 

UR I TELN ('Exaeinee  * .EXAMINEE. ID, *  entered  into  systee.'); 
URITELN; 

URITELN; 

URITELNCPrese  <RET>  to  continue  logging  in  examinees  or*); 
URITE (’press  <ESC>  to  quit.  ’); 

CHOICE  :-  GETCHAR (ICHR (RET). CHR (ESC)J, TRUE. FALSE. TRUE); 

IF  CHOICE  -  OP  (ESC)  T)€N 
DONE  TRUE: 

ENO;  (4) 

END;  (2) 

UNTIL  DONE; 

ENO:  (*  log-in  e) 
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(*  ») 

(a  Toxtfilo  s  EMGR. DIR/E. FETCH. TEXT  Volume  s  TFILES  ») 

(a  Codefile  :  E. MGR. CODE  (’Include’  file)  Volume  :  CATOATA  •) 

(*  *) 

(eseeseaassssaaeaeaesassasssa'eaesasaMSSssMMassMsaeaaseaesaaaasasMnrsaassssa) 

(a  File  Last  flodified  :  Oct  1,  1983  NPROC  a) 


(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa) 

(a  enter  /  modify  examinee  data  a) 

PROCEDURE  ENTEROATA; 

VAR  IDINOEX  :  INTEGER; 

COMMANO  :  CHAR; 

OKI .0K2.0K3.0K4, 

CHANGED. 

FOREVER  ;  BOOLEAN; 


{ - - - - - I 

(a  display  examinee  personal  data  a) 

PROCEDURE  0 1  SPLAYEXAfl  I  NEE ; 

VAR  J  :  INTEGER; 

I . ) 


(a  display  some  data  a) 

PROCEDURE  01; 

BEGIN 

UITH  PINFO  DO 
BEGIN  111 
GOTOXV (0,4) ; 

URITEC  Last  Name’); 

URITEC  ;  ’.LASTNATE); 

GOTOXY (32,4) ; 

URITECFirst  Name’); 

URITEC  ;  ’.FIRSTNAME); 

GOTOXY (60. 4); 

UR  I  TEC  Middle  Initial’); 

URITEC  :  *  .MINI TIAL) ; 
GOTOXY(1,5>; 

URITECCurrent  Address  (State)’); 
URITEC  :  ’.CURRADORESS); 

GOTOXY (40.5); 

URITECHome  of  Record  (State)’); 
URITELNC  ;  ’ .HOMEOFREC) ; 

URITEC  Citizenship’); 

URITELNC  :  ’  .CITIZENSHIP) ; 
URITEC  Sex’); 

URITELNC  ;  ’.SEX); 

URITEC  Population  Group’); 
URITELNC  s  ’.POPGROUP); 

URITEC  Ethnic  Group’); 

URITELNC  t  ’, ETHNIC); 

URITEC  Marital  Statue’); 
URITELNC  ;  ’.MARITAL); 

URITEC  Number  of  Dependents' ) ; 
URITELNC  ;  ’.DEPENDANTS); 

URITEC  Oate  of  Birth’); 

URITELNC  ;  ’  .BIRTHDATE) ; 

END;  <11 
END;  (a  dl  a) 


< . I 

BEGIN  (a  display  examinee  a) 

PAGE  (OUTPUT); 

01; 

UITH  PINFO  00 
BEGIN  (1) 

URITEC  Education’); 

URITELNC  ;  ’.EDUCATION); 

URITEC  Test  Id’); 

URITELNC  ;  ’.TESTIO); 
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UR  I  TEC  AFQD: 

Iff)  I TELN ( ’  :  ’ ,AFQT) j 
URITEC  ASVAB  Scores*): 

UR I TELN (’  :  \ ASVAB): 

LRITEC  Date  of  Enli staent* ) : 

Iff) I TELN (’  :  ’ .ENL1ST0ATE) : 

URITEC  Active  Service  Date’): 

UR1TELNC  :  * . ACTSEROATE) ; 

URITEC  Rating  /  DOS'): 

UR1TELNC  :  ’.ENL): 
lff)ITEC  AFEES*): 

UR I TELN (’  :  *, AFEES): 

URITEC  Branch  of  Service*); 

UR1TELNC  :  \B0S): 

URITEC  Retest  ASVAB’): 

URITELNC  :  *  .POSTASVAB) : 

URITEC  Test  Order*): 

URITEC  :  *  .STESTOROER 101  .STESTOROER Ill ) ; 
END:  <1) 

END;  (a  display  exaainee  «) 


I* . . . . . . -*) 

(•  get  exaainee  personal  data  e) 

PROCEDURE  GETOATA; 

I . ) 


(*  read  in  a  string  and  save  in  a  teaporary  buffer  a) 
PROCEDURE  EFILLBUF (CHARCNT  :  INTEGER; 

OK  SET  :  SETOFCHAR;  ERASE  :  BOOLEAN): 

VAR  I  :  INTEGER; 

IOCHAR  :  CHAR; 

BEGIN 

CHANGED  :-  FALSE: 

I  :-  0: 

REPEAT 

IF  I  >  (CHARCNT-1)  THEN 
IOCHAR  : - 

CETCHAR ( (Off) (LARROU)  .Off) (RET)  J  ,  TRUE ,  TRUE.  TRUE) 

ELSE 

BEGIN  111 

IF  I  -  0  THEN 
IOCHAR  : - 

GET  CHAR  (OKSET  +  ICHR(RET) , 

CHR  (ESC ). Of)  (LARROU) , CHR  (RARROU)  J . 
TRUE. TRUE, TRUE) 

ELSE 

IOCHAR  :• 

GETCHAR  (OKSET  ♦  [Off) (RET) . 

Off)  (LARROU) ,  Off)  (RARROU)  1 , 

TRUE. TRUE. TRUE); 

IF  IOCHAR  •  CHR  (ESC)  T)CN 
BFMN  12) 

■  OREVER  :-  FALSE: 

EXIT (GETOATA); 

END;  (2) 

IF  IOCHAR  IN  OKSET  T)€N 
BEGIN  13) 

CHANGED  :-  TRUE; 

LINEBUF  III  :-  IOCHAR; 

I  I  ♦  1; 

ENO;  13) 

END;  III 

IF  IOCHAR  -  CHR  (LARROU)  T)CN 
BEGIN  141 

IF  I  -  0  THEN 
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SOU AUK 
ELSE 

BEGIN  (S) 

URITE(CHR(L  ARROW) ) : 

I  I  -  1; 

IF  ERASE  THEN 
BEGIN  16) 

URITEC  ’); 

UR I TE (CHR (LARROU) ) : 

LINEBUF III  ’  ’; 

END:  (61 
ENO;  (SI 
ENO  (41 
ELSE 

IF  IDCHAR  -  CHR(RARROU)  THEN 
BEGIN  (7) 

WRITE  (LINEBUF  til ) ; 

I  I  +  lt 
END;  (7) 

UNTIL  IDCHAR  -  CHR (RET); 

END;  («  Ef i I Ibuf  «) 


(«  get  personal  data  part  1  «) 

PROCEDURE  GET1DATA; 

BEGIN 

INVERSE; 

GOTOXYU.4); 

URITECLast  Naee’ ) ; 

NORMAL; 

GOTOXY(13.4); 

MOVELEFT (PINFO.LASTNAME  101 .LINEBUF  101 . IS) ; 
EFILLBUF (IS. LETTERS  ♦  f  ’l.TRUE); 

IF  CHANGED  THEN 
OKI  FALSE; 

MOVELEFT (LINEBUF  (01 .PINFO.LASTNAME  101 . IS) ; 
FILLCHAR (LINEBUF  101. 15.’  ’); 

G0T0XY(1,4) ; 

URITECLast  Naee'): 

INVERSE; 

G0T0XY(32.4) ; 

URITECFirst  Naee’); 

NORMAL; 

GOTOXY (45,4) ; 

MOVELEFT (PINFO.FIRSTNAME  (01 .LINEBUF  [01 , 12) ; 
EFILLBUF (12. LETTERS  +  t*  ’l.TRUE); 

MOVELEFT  (LINEBUF  101  .PIffO.FIRSTNAME  (01 . 12) ; 
F I LLCHAR (LINEBUF [01 ,12, ’  ’); 

GOTOXY (32. 4); 

URITECFirst  Naee’); 

INVERSE; 

GOTOXY (60. 4); 

URITEC Middle  Initial’); 

NORMAL; 

GOTOXY (77, 4); 

LINEBUF  (01  PINFO.MINITIAL; 

EFILLBUF (1, LETTERS  +  C  ’l.TRUE); 
PINFO.MINITIAL  LINEBUF  101 ; 

LINEBUF  101  s-  ’  ’; 

GOTOXY (60. 4); 

1FHTE (’Middle  Initial’); 


INVERSE; 

G0T0XY(1.5); 

URITE (’Current  Address  (State)’); 

NORMAL; 

GOTOXY (27, 5); 

MOVELEFT (P I NFO.CURR ADDRESS  (01 .LINEBUF [01 ,2) ; 
EFILLBUF (2, LETTERS  +  C  ’l.TRUE); 

MOVELEF  T (L I NEBUF (01 . P I NFO . CURRAOORESS (0) . 2) ; 


Oec  19  17:48  1983  EMGR.OIR/E. FETCH. TEXT  (  Get  exaeinee  to  put  in  personal  data)  Page  4 


FI LLCHAR (LI NEBUF  181 ,2,  ’  ’); 

GOTOXY (1,5) : 

URI  TEC  Current  Address  (State)’): 

INVERSE: 

GOTOXY (40,5) ; 

URITEI’Hoae  of  Record  (State)*): 

NORMAL: 

GOTOXY  (6S,5): 

MOVELEFT  (PINFO.HOMEOFREC  [0]  .LINEBUF  [01 ,2) : 
EFILLBUF (2. LETTERS  +  C  ’I, TRUE): 

MOVELEF  T (L I NEBUF [0] , P I NFO . HOMEOFREC (0) , 2) ; 
F I LLCHAR (LINEBUF  (01 ,2, ’  ’): 

GOTOXY (40,5): 

URITECHoee  of  Record  (State)’): 

END;  (*  getldata  «) 


I — - - - - - - . . ) 

(*  get  more  personal  data  •) 

PROCEDURE  GET20ATA; 

BEGIN 

INVERSE: 

GOTOXY (1,6) i 

URI TE ( ’ C i t i zensh ip*); 

NORMAL; 

GOTOXY (15.G); 

MOVELEFT (PINFO.CITIZENSHIP(0). LINEBUF  101,4); 

EFILLBUF (4.LETTERS  ♦  C  ’l.TRUE); 

MOVELEFT (L I NEBUF (01 . P I NFO . C I T I ZENSHI P (01,4); 

FILLCHAR (LINEBUF (01, 4.’  ’): 

GOTOXY (1.6); 

URI  TE  CCi  ti  zensh  ip’ ); 

INVERSE; 

GOTOXY (1.7); 

URITE(’Sex’); 

NORMAL: 

GOTOXY (7. 7); 

LINEBUF (0)  PINFO.SEX; 

EFILLBUF (1. LETTERS  ♦  C  ’l.TRUE); 

PIfFO.SEX  t-  LINEBUF [01; 

LINEBUF [01  ’  ’; 

GOTOXY (1.7); 

URI  TEC  Sex’); 

INVERSE; 

GOTOXY (1.8); 

URITECPopulation  Group'); 

NORMAL; 

GOTOXY (20, 8); 

MOVELEFT (P I NFO. POPGROUP  (01 .LINEBUF (01,1); 

EFILLBUFIl, DIGITS  ♦  C  ’1  ♦  LETTERS, TRUE) ; 

MOVELEF T (LINEBUF  [0] .PINFO. POPGROUP  10) , 1 ) : 

FI LLCHAR (LI NEBUF (01,1,*  ’); 

GOTOXY (1,8); 

URITECPopulation  Group'); 

INVERSE; 

GOTOXY (1,9); 

URITECEthnic  Group’); 

NORMAL: 

GOTOXY  11B.9); 

MOVELEFT  (PINFO. ETHNIC (0) .LINEBUF (01,1); 

EFILLBUF (1 .LETTERS  ♦  OIGITS  ♦  C  ’l.TRUE); 

MOVELEF  T  (L 1  NEBUF  [01 ,  PI  NFO .  ETHN I C  (0) ,  1 ) ; 

FI LLCHAR (LI NEBUF (01,1,’  ’); 

GOTOXYU.9): 

URITECEthnic  Group’); 


INVERSE; 
GOTOXY (1,10); 
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URITE (’Marital  Statue*): 

NORMAL: 

GOTOXY (18.10); 

LINEBUF  (0)  :-  PINFO. MARITAL; 
EFILLBUF (1. LETTERS  +  f  *),TRUE); 
PINFO. MARITAL  :-  LINEBUF  10); 

L I NEBUF [0]  :-  *  *; 

GOTOXY (1,10) ; 

URITE (’Marita I  Statue’); 

END;  («  get2data  *) 


(*  get  personal  data  part  3  *) 
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GOTOXY (1. IS); 
URITECAFQT*); 

END;  (*  get3data  *) 


(— - - - - - -I 

(»  get  none  personal  data  part  4  *> 

PROCEDURE  GET40ATA; 

BEGIN 

INVERSE: 

GOTOXYU.IB); 

URITECASVAB  Scores’): 

NORMAL; 

GOTOXYU6.1S); 

MOVELEF  T (P I NFO . ASVAB [01 . L I NEBUF [0) , 32 ) ; 

EFILLBUF (32, DIGITS  +  [*  ’I.TRUE): 

IF  CHANGED  THEN 
0X2  j-  FALSE: 

MOVELEF  T  (L I  NEBUF  (0) ,  P I  NFO .  AS  VAB  [01 , 32 ) : 

F I LLCHAR (LI NEBUF  101,32.’  ’); 

GOTOXYU.IB): 

URITECASVAB  Scores’): 

INVERSE; 

G0T0XYU.17); 

WRITE  (’Date  of  Ent  i  staent’ ) ; 

NORMAL; 

G0T0XY(22.17); 

MOVELEFT  (PINFO.ENLISTOATE  10]  .LlfCBUF  10)  ,8) : 

EFILLBUF (8, DIGITS  +  I’/’.’  ’I.TRUE); 

MOVELEFT (L I NEBUF  [0] , P I NFO . ENL I STDATE 10) , 8) : 

FI LLCHAR (LI NEBUF [01. 8.’  ’); 

G0T0XYU.17); 

WRITE (’Date  of  Enl istaent*); 

INVERSE: 

G0T0XYU.18); 

URITECActive  Service  Oate'); 

NORMAL; 

G0T0XY(23.18); 

MOVELEFT (PINFO.ACTSEROATE  10]  .LINEBUFI0J  .8); 

EFILLBUF (8.0IGI TS  ♦  C/V  ’I.TRUE); 

MOVELEFT  (LINEBUF  (01  .PlfFO.  ACTSEROATE  (01 .8); 

FI LLCHAR (LI NEBUF (01. 8.’  ’); 

G0T0XYU.18); 

URITECActive  Service  Date’); 

INVERSE; 

GOTOXY (1,19) ; 

URI  TEC  Rating  /  MOS'); 

NORMAL: 

GOTOXY (16. 19) ; 

MOVELEFT  (PI  NFO.  ENL  101 .  L I  NEBUF  10] ,  5) ; 

EFILLBUF (S. DIGITS  ♦  LETTERS  ♦  C  ’J.TRUE); 

IF  CHANGED  THEN 
0X3  :•  FALSE* 

MOVELEFT  (L I  NEBUF  10) ,  P I  NFO .  ENL  (01 , 5  > ; 

F I LLCHAR (LI NEBUF (0). 5,*  ’); 

GOTOXY (1.19); 

URITECRating  /  MOS’); 

INVERSE; 

GOTOXY (1,20); 

URITE(’AFEES’); 

NORMAL; 

GOTOXY (9, 20); 

MOVELEF  T  (P I  NFO .  AFEES  t0].L!NEBUF(0),2); 

EFILLBUF (2, LETTERS  *  DIGITS  ♦  C  ’I.TRUE); 

MOVELEFT (LINEBUF  (01 .PINFO. AFEES (01 , 2) ; 

F I LLCHAR (LI NEBUF  10], 2.’  ’); 

GOTOXY  (1,20); 

WR1  TEC  AFEES’); 
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ENOs  («  get4data  *) 


I*  — . - . . . - - - *) 


(«  get  some  More  data  «) 

PROCEDURE  GETSOATA: 

BEGIN 

INVERSE; 

G0T0XYU.21); 

URI  TEC  Branch  of  Service* ); 

NORMAL ; 

GOTOXY(21,21); 

MOVELEFT (PINFO.BOS  10) .LINEBUF [03 .2) ; 
EFILLBUF (2, LETTERS  ♦  t*  *3, TRUE); 
ttOVELEFT  (L I NEBUF  [03 .  P I NFO .  BOS  103 . 2) ; 
FILLCHAR (LI NEBUF  [0] ,2, *  *); 

G0T0XY11.21); 

URITE (’Branch  of  Service’); 

INVERSE; 

GOTOXYU.22); 

URI TE (’Retest  ASVAB’ ) ; 

NORMAL; 

GOTOXY(lB,22) ; 

MOVELEFT (P1NF0. POSTASVAB 103 , L I NEBUF [03 , 32) ; 
EFILLBUF (32. DIGITS  +  I’  ’3.TRUE); 

IF  CHANGED  THEN 
0K4  FALSE; 

MOVELEFT (LINEBUF  [03 .P1NFO.POSTASVAB  103 .32) ; 
F I LLCHAR (LINEBUF  103 ,32. ’  ’); 

GOTOXY (1,22) ; 

URITE (’Retest  ASVAB’); 

INVERSE; 

GOTOXY (1.23); 

URI  TEC  Test  Order’); 

NORMAL; 

GOTOXY (14.23); 

MOVELEFT  (PIfFO.  stestorder  (03  .LINEBUF  103 ,2) ; 
EFILLBUF (2. LETTERS  ♦  C  *3 , TRUE) ; 

MOVELEFT (L I NEBUF  [03 , P I NFO . STESTORDER  [03 . 2) ; 
FI LLCHAR (LI NEBUF [03. 2.’  ’); 

GOTOXY (1.23); 

URITECTeat  Order’); 

END;  («  getSdata  *) 


(* - *3 

BEGIN  (e  getdata  e) 

GOTOXY (0.0); 

URITELN( 

’DATA  ENTRY  INSTRUCTIONS  ;  To  enter /Modify  data,  type  in  the  data  goo  nant’3; 
URITELN( 

’and  then  press  <RET>  to  accept  that  data.  To  skip  the  current  field,  just’); 
URITELNl 

‘press  <RET>.  To  quit,  press  <RET>  and  then  <ESC>.’); 

FOREVER  »-  TRUE; 

REPEAT 

GET1DATA; 

GET20ATA; 

GET3DATA; 

GET4DATA; 

GET50ATA; 

UNTIL  NOT  FOREVER; 

END;  («  getdata  *) 

(» - - - - *) 
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L» 

'  V  s' 
•  ■>  • 


Vs'",v; 
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(*  verify  certain  data  •) 

PROCEDURE  VER1FY0ATA: 

VAR  VLASTNAHE  :  PACKED  ARRAY [8..  14]  OF  CHAR: 

VASVAB.VRETEST  :  PACKED  ARRAY [0. . 43]  OF  CHAR; 
VENL  :  PACKED  ARRAY  £0, .4]  OF  CHAR; 


□ONE  :  BOOLEAN; 


(e  get  verified  data  •) 
PROCEDURE  GETVDATA; 

BEGIN 

F I LLCHAfi (L I NEBUF  [01,80,’  ’); 


GOTOXYll ,4) ; 

URITECLast  Naee  :  * )  j 
IF  OKI  THEN  URI  TE (PINFO.LASTNAME, *  (Data  OK) ’ ) ; 
G0T0XY(1,5); 

URITEC  ASVAB  Scores  :  ’); 

IF  OK2  THEN  URI TE(P1NF0. ASVAB,’  (Data  OK)*); 
GOTOXY(l.G) : 

URI TE (’Rating  /  MOS  ;  ’); 

IF  0K3  THEN  URI TE(PIf*O.ENL, *  (Data  OK)’): 
GOTOXY (1,7) ; 

URITECRetest  ASVAB  Scores  :  ’); 

IF  0K4  THEN  IHITE(PINFO.POSTASVAB.*  (Data  OK) 


(Data  OK)’); 


IF  NOT  OKI  THEN 
BEGIN 
INVERSE; 

GOTOXY (1.4); 

URI TE( ’Last  Naee’); 

NORMAL; 

URITEC  :  ’); 

G0T0XYI13.4) ; 

F I LLBUF( IS, LETTERS  f  ’l.TRUE); 

MOVELEFT (L I NEBUF [0] . VLASTNAHE  10] , 15) ; 
FILLCHARILINEBUF (0]  ,15,  ’ 

GOTOXY (1.4), 

URI TE (’Last  Naee’); 

END: 


IF  NOT  0K2  THEN 
BEGIN 
INVERSE; 

G0T0XYU.5); 

URI  TEC  ASVAB  Scores’); 

NORMAL; 

URITEC  ;  ’); 

GOTOXY (16, 5); 

FILLBUF (32.0IGITS  ♦  C  ’l.TRUE); 
MOVELEFT  (LI NEBUF  (0] ,  VASVAB  [0] ,  32) ; 
FILLCHARILINEBUF  (01 ,32,  ’  ’); 
GOTOXYll, 5); 

URI  TEC  ASVAB  Scores’); 

END; 


IF  NOT  0K3  THEN 
BEGIN 
INVERSE; 

GOTOXY  (1,6); 

URITECRating  /  MOS’); 

NORMAL; 

URITEC  :  ’); 

GOTOXY  (16,6); 

FILLBUF (5, DIGITS  ♦  LETTERS  ♦  C  ’l.TRUE); 
MOVELEF  T  ( L I  NEBUF  (0) ,  VENL  10) ,  S ) ; 

F I LLCHAR (L I NEBUF  10] , 5 , ’  ’); 

GOTOXY (1,6); 

URITECRating  /  DOS’); 

ENO; 


m 


'  I-  L-'-'-  v  v‘>V-V 

v  „v  .■.  .•.  .v  .V.v  V/.  '.  '  a  ' 


/  v  /  /  f 


'  V  v 


4X1 
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IF  NOT  OK 4  THEN 
BEGIN 
INVERSE: 

GOTOXY (1,7) : 

WITE (’Retest  ASVAB  Scores’): 
NORMAL: 

URITEC  :  ’): 

GOTOXY<23,7): 

FILLBUF(32. DIGITS  +  I*  ’3 .TRUE): 
NOVELEFT  (LIISEBUF  [03 ,  VRETEST(8)  ,32) : 
FILLCHAR (LIf£BUF  183 ,32,  ’  ’): 

GOTOXY (1,7): 

URITETRetsst  ASVAB  Scores’); 

END; 


END;  (*  getvdata  *) 


PROCEDURE  CHECKDAT; 

BEGIN 

PAGE (OUTPUT) ; 

GOTOXY (0.4); 

IF  (PINFO.LASTNAME  <>  VLASTNAME)  THEN 
URI  TELN  (’so  ERROR  «*»’) 

ELSE 

OKI  :-  TRUE; 

U)I  TELN (’Previous  Last  Nam  :  *  .PINFO.LASTNAME) ; 

UR  I TELN  (’Verified  Last  Nam  :  ’.VLASTNAME); 

UR  I TELN; 

IF  (PINFO. ASVAB  <>  VASVAB)  THEN 
URITELNI’SO  ERROR  **•’) 

ELSE 

0K2  TRUE; 

URI TELN (’Previous  ASVAB  Scores  :  ’. PINFO. ASVAB) ; 

UR I TELN (’Verified  ASVAB  Scores  :  ’, VASVAB); 

URI TELN; 

IF  (PINFO. ENL  <>  VENL)  T)CN 
URI  TELN  (’em  ERROR  •*»’) 

ELSE 

0K3  TRUE; 

UR I TELN (’Previous  Rating  /  HOS  :  ’ .PINFO. ENL) ; 

URI TELN ( ’ Ver i f i ed  Rating  /  MOS  :  ’.VENL); 

URI TELN; 

IF  (PINFO.POSTASVAB  <>  VRETEST)  THEN 
URITELNI’so  ERROR  so’) 

ELSE 

0K4  TRUE; 

UR I TELN (’Previous  Retest  ASVAB  Scores  :  ’ .PlffO.POSTASVAB) ; 
URI TELN (’ Ver i fied  Retest  ASVAB  Scores  x  ’.VRETEST); 

URI TELN; 

URI TELN; 

EfO;  (s  checkdat  s) 


BEGIN  (s  verifgdata  s) 

IF  OKI  THEN 

VLASTNAME  PINFO.LASTNAME 
ELSE 

FILLCHAR (VLASTNAME (03, 15,’  ’); 
IF  0K2  THEN 
VASVAB  PINFO. ASVAB 

ELSE 

FILLCHAR (VASVAB (03, 44,’  ’); 

IF  0K3  THEN 
VENL  PINFO. ENL 

ELSE 

FILLCHAR (VENL (03,5,’  ’); 

IF  0K4  THEN 

VRETEST  :-  PINFO.POSTASVAB 
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ELSE 

FILLCHAR1VRETEST  [0]  ,44,  ’  Ms 
DOC  FALSE; 

REPftT 

PAGE (OUTPUT ) ; 

URITELN ( 

'To  verify  certain  pieces  of  data,  please  enter  the  information  below  for  the'); 
IRI TELN  ( 

'examinee  again. ’ ) ; 

GETVDATA; 

CHECKDAT; 

IF  (PINFO.ENL  <>  VENL)  OR 
(PINFO. ASVAB  <>  VASVAB)  OR 
(PINFO.LASTNAnE  <>  VLASTNAME)  OR 
(P1NF0.P0STASVAB  <>  VRETEST)  THEN 
BEGIN 
SOU AUK; 

URITECDo  you  want  to  re-enter  the  data?  Y/N  :  '); 

IF  GETCHARlt'Y’.'N'.'y'.'nM,  TRUE,  TRUE,  TRUE)  IN  t'Y'.'y')  THEN 
BEGIN 

D I SPL A YEXAM  I  NEE ; 

GETOATA; 

END 

ELSE 

BEGIN 

00 NE  TRUE: 

IF  NOT  OKI  TICN  FILLCHAR (PINFO.LASTNANE  [0)  ,15, *  M; 

IF  NOT  0K2  THEN  F I LLCHAR (PINFO. ASVAB (0) .44, '  '); 

IF  NOT  0K3  THEN  FILLCHARlPIfFO.ENL  (0)  ,5, '  ')j 
IF  NOT  0K4  THEN  FILLCHAR  (PINFO.  POSTASVAB  [0]  .44, '  Ms 
END; 

END 
ELSE 
BEGIN 

DONE  TRUE; 

URITECVerif ied  data  is  OK.M: 

URITELN; 

URITELN; 

STALL: 

END; 

UNTIL  DONE; 

ENO;  (*  ver i fydata  «) 


BEGIN  (e  enter  data  e) 

LOADINOEX; 

ENTERID; 

IDINOEX  DIRINOEXNUtl  (EXAMINEE.  10); 

IF  IDINDEX  <  0  THEN 
BEGIN  (1) 

GOTOXY (0, 12) ; 

URITELNCNo  record  in  file  with  10  :  ’  .EXAMINEE.  ID) ; 
URITELN; 

STALL; 

ENO  (1) 

ELSE 

BEGIN  (2) 

LOADPOATA( IDINDEX) ; 

0 1 SPLA YEXAM I  NEE ; 

OKI  TRUE; 

0K2  TRUE; 

OK 3  s-  TRUEs 
OK 4  *-  TRUE; 

GETOATA: 

VER I FYDATA; 

SAVEPOATA(IOINOEX); 

ENO;  (2) 

ENO;  (e  enter  data  *) 


Oec  9  10:14  1982  EMGR.OIR/E.  STATUS.  TEXT  (  Display  status  of  all  exaainees  in  systea)  Page  1 


(s 

<*  Textf i  Is  :  EHGR.D1R/E. STATUS. TEXT  Voluaa  :  TFILES 

(a  Codefile  :  E.fIGR.COOE  (’Include*  file)  Voluaa  :  CATDATA 

(* 

I  amwmHMM  *  miwwmwwwm  ...hi....  t  m  »«««» 1 1  .....  t  „ 

<*  DEC.  1.  1982  NPROC 

(*  list  the  status  of  all  exaainees  in  directory  *) 

PROCEDURE  ESTATUS: 

VAR  COUNT, 

STATUSCODE, 

I.K  ;  INTEGER: 

IDCHAR  :  CHAR; 


BEGIN 

PAGE (OUTPUT); 

URITELN; 

URITELN!*  Examines  Id  It  Status'); 

URITELN  (’ . - . . . . . 

URITELN; 

LOADINOEX; 

COUNT  0; 

FOR  1C  0  TO  9  DO 

BEGIN  (1) 

IDCHAR  CHROC+48); 

FOR  I  0  TO  MAXEXAMINEE  00 
BEGIN  (2) 

IF  NOT  (OIR III. UNUSED)  THEN 
BEGIN  (31 

IF  OIR  (I ).  ID  10)  -  IDCHAR  THEN 
BEGIN  (41 

COUNT  COUNT  +  1; 

UR!  TE  (OIR  III .  ID) ; 

URITEC  •); 

LOAOEXAMlNEEtl); 

STATUSCODE  EXAMJNEE.LASTTEST; 

IF  STATUSCODE  <  GMAXSUBTEST  THEN 
URITELN  (’Session  not  completed.  ’ .EXAMINEE. LASTTEST, 
’  tests  finished.*); 

IF  STATUSCODE  -  GMAXSUBTEST  THEN 
URITELNCNbm  exaainee'); 

IF  STATUSCODE  >  GMAXSUBTEST  THEN 
URITELN (’ Exaainee  has  completed  session.’); 


END;  (41 
END;  (3) 

END;  (2) 

URITELN; 

END;  (1) 

URITELN; 

URITELN  C . . 

URITELN; 

URI TELN (COUNT, '  exaainees  in  directory,*); 
URITELN; 

STALL; 

END;  (a  eetatus  e) 


); 


253 


Dec  9  10:02  1982  EMGR. DIR/E. DELETE. TEXT  (  Deletes  an  examinee  from  database)  Page  1 


(« 

(*  Textfile  :  EMGR.OIR/E. DELETE. TEXT  Volume  :  TFILES 

(e  Codefile  :  E. MGR. CODE  ('Include*  file)  Volume  .-  CATDATA 

<e 


wwwwwl 
*) 
«) 
*) 
*) 


(*  DEC.  1.  1982  NPRDC  *) 

i******».».».*$*****»******-**+**********»tt*******t*******%**ir*****-*»:****+**rrmr*) 


(*  remove  examinee  record  from  file  *) 
PROCEDURE  REHOVEEXAfl  1  NEE ( I ONUM  :  INTEGER): 
VAR  TESTSLOT, 

J  :  INTEGER; 

BEGIN 


(*  initialize  the  examinee  records  s) 
INITEREC; 

(*  zero  out  test  taking  info  *) 

UPOA  TEEXAH I  NEE  U  DNUfl ) : 

(*  zero  out  personal  data  *) 
SAVEPOATAdDNUTD ; 


(*  zero  out  testing  results  *) 

TESTSLOT  IDNUT1  «  STESTS; 

RESET (FILETESTS. RESULTS) : 

J  :  -  0; 

REPEAT 

SEEK (FILETESTS. TESTSLOT) ; 

FILETESTS'*  TESTS: 

PUT (FILETESTS): 

TESTSLOT  TESTSLOT  +■  1; 

J  :-  J  +  1: 

UNTIL  J  -  STESTS; 

CLOSE (FILETESTS. LOCK); 

(«  update  directoru  uith  examinee  removed  m) 

DIR llONUni. UNUSED  TRUE: 

UPDATE I NOEX; 

END:  («  remove  examinee  «) 

I . . . . . » 


(«***  get  record  in  a  file  to  delete  m***) 

PROCEDURE  DELE  TEEXAM I NEE ; 

VAR  I 01 NOEX  :  INTEGER; 

BEGIN  («  delete  «) 

LOAOINOEX; 

ENTERID; 

IDINDEX  D I RINOEXNUM (EXAMINEE. 10) ; 

IF  IDINDEX  <  0  THEN 
BEGIN  (1) 

GOTOXY (1 , 12) ; 

URtTELNCNo  record  in  file  uith  ID  :  *  .EXAMINEE.  ID) ; 

URITELN; 

STALL; 

END  (1) 

ELSE 

BEGIN  (2) 

URITELN; 

URITELN; 

URITE  ('Delete  examinee  ’  .EXAMINEE.  10,  ’  ?  (Prose  ”N”  or  ”Y”)  :  ’); 
IF  GETCHARd’y’.’n'.’Y'.'N’).  TRUE.  TRUE.  TRUE)  IN  I'Y’.'y']  THEN 
REMOVEEXAM I NEE (IDINDEX) ; 

END;  (2) 

END;  (m  delete  examinee  m) 
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<« 

*) 

(» 

Textfile  ;  EMGR. DI R/E. ENOOFOAY . TEXT 

Volume  : 

TFILES 

e) 

- J 

9 

(« 

Codefile  s  E. MGR. CODE  (’Include’  file) 

Volume  : 

CATDATA 

*) 

• 

<* 

*) 

<* 

DEC.  1,  1982 

NPROC 

*) 

(*  back  up  all  examinees  uho  have  finished  session  *) 

PROCEDURE  ENDOFDAY: 

VAR  COUNT, 

STATUSCOOE, 

I ,  J,K  :  INTEGER; 

OEXAMINEE  :  FILE  OF  EXAMEIfFO; 

DFDIR  :  FILE  OF  INDEX; 

OF'itSTS  ;  FILE  OF  SU8TEST; 

DP  INFO  :  FILE  OF  PINFOREC; 


BEGIN  (*  end  of  dag  *) 

PAGE (OUTPUT) ; 

URITELN; 

URITE(*Erase  old  contents  of  backup  file  7  (Press  ”Y”  or  ” 
IF  GETCHAR([’y’,*Y\’n’,’N’). TRUE, TRUE, TRUE)  IN  I’N’.’n*)  THEN 
EXIT (ENDOFDAY); 

FOR  I  0  TO  MAXEXAMINEE  DO 
DIRU1. UNUSED  TRUE; 

RESET (FILEOIR.OONEINOEX) ; 

SEEK (FILEDIR.0) ; 

FILEDIR"  DIR; 

PUT (FILEDIR) ; 

CLOSE  (FILEOIR, LOCK); 

URITELN: 

URITELN; 

URITELN (’Backing  up  examinees  uho  have  finished  session’); 
IRITELN; 

LOAD INDEX; 

COUNT  0; 

FOR  I  0  TO  MAXEXAMINEE  00 

BEGIN  (1) 

IF  NOT  (DIR (II. UNUSED)  THEN 
BEGIN  (2) 

L0A0EXAJ1INEE  (I ) ; 

LOADPOATA(I); 

STATUSCOOE  EXAMINEE. LASTTEST; 

IF  STATUSCOOE  >  GMAXSUBTEST  THEN 
BEGIN  (3) 

URITELN; 

URITECBacking  up  ’ .EXAMINEE. ID) ; 

(*  update  the  done  directory  e) 

URITE (’.’); 

RESET (DFDIR, DONEINOEX) ; 

SEEK (DFDIR, 0) ; 

DFDIR" (COUNT). UNUSED  FALSE; 

DFDIR"  (COUNT).  ID  DIR(I).IO; 

PUT (DFDIR); 
aOSE  (DFDIR,  LOCK); 

(*  update  the  done  test  taking  info  s) 

URITEC.’); 

RESE  T (DEXAM I NEE . DONE INFO); 

SEEK (OEXAMINEE, COUNT); 


s  s 
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OEXAMINEE*  EXAMINEE; 
PUT  (DEXAMINEE) ; 

CLOSE (DEXAM1 NEE, LOCK) ; 


(*  save  the  personal  data  a) 

URI  TEC .  ’ )  t 

RESET  (DPINFO, DONEPINFO) ; 

SEEK  (DPINFO, COUNT); 

DP  INFO"'  PINFO; 

PUT  (DPINFO); 

CLOSE  (DPINFO. LOCK); 

(a  update  the  done  subtest  results  a) 

J  COUNT  «  GMAXSUBTEST ; 

K  I  «  GMAXSUBTEST; 

REPEAT 

URITEC.’); 

LOAORESULTS (K) ; 

RESET  (OFTESTS, DONERESULTS) ; 

SEEK (DFTESTS,  J) ; 

OFTESTS''  TESTS; 

PUT  (DFTESTS); 

CLOSE (OF TESTS. LOCK); 

K  s-  K  ♦  1; 

J  J  ♦  1; 

UNTIL  J  >-  (COUNT  *  GMAXSUBTEST  +  10); 

REMOVEEXAMINEE ( I ) ; 

COUNT  COUNT  >  1; 

END;  (31 
END;  (2) 

END;  (1) 

URITELN; 

URITELN; 

URITELN (COUNT,'  exasinees  backed  up.*); 
URITELN; 

STALL; 

END;  (a  endofday  a) 
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URI TE  (DEST, MARI  TAL)  j 
UP I TE  (DEST. DEPENDANTS) : 

URITE (0EST.B1RTHDATE); 

ENO;  11) 

END;  (*  dl  *) 

1 . 1 

BEGIN  (*  show  exaeinee  «) 

Dl; 

UITH  PINFO  DO 
BEGIN  (1) 

URITE (OEST. EDUCATION); 

URITE (DEST, TESTID) ; 

URITE (DEST.AFQT); 

URI TELN (DEST, ASVAB) ; 

(*  end  of  eecond  line  of  compact  data  «) 

URITE (DEST, ENLISTDATE); 

URITE  (OEST, ACTSEROATE); 

URITE (OEST, ENL); 

URI TELN (DEST, AFEES); 

(*  end  of  third  line  of  compact  data  *) 

URITE (DEST. POST ASVAB); 

URITE (DEST, BOS); 

URI TE (OEST .STESTOROER  C81 , STESTOROER  Ill ) j 
URI TELN (DEST . EXAM I  NEE . DATE ) ; 

ENO;  (II 

ENO;  (*  shouexaminee  «) 

( . ) 

(m  check  uhether  coding  epeed  or  numerical  ops  eubtest  needed  to  see  ») 
(«  if  time  info  ui 1 1  appear  at  correct  line  for  SPSS  s) 

PROCEDURE  CHECK Tift  OUT ; 

BEGIN 

(*  Test  number  minus  1.  ie; 

5.  Numerical  Operations  12.  Numerical  Operations  III 

G.  Coding  Speed  13.  Numerical  Operations  IV 

18.  Coding  Speed  II  14.  Coding  Speed  III 

11.  Numerical  Operations  II  15.  Coding  Speed  IV  m) 

IF  EXAMINEE. TESTOROER IT INDEX]  IN  [5,6,18,11,12.13.14.15)  THEN  (a) 

BEGIN  (1) 

IF  EXAMINEE. TESTOROER  IT INDEX]  IN  16,18,14.15] 

THEN  (b) 

MAXLINES  s-  7  *  EXAM  I  )CE .  TESTLENGTH  IT  I NDEX) 

ELSE  lb) 

MAXLINES  3  »  EXAMINEE. TESTLENGTH [T I N0EX1-1; 

IF  LINESOUT  <  MAXLINES  THEN  (cl 
BEGIN  (2) 

FOR  OUM  LINESOUT+1  TO  MAXLINES  DO 

IF  EXAMINEE. TESTOROER IT  INDEX)  IN  (6,18,14,15)  THEN  Id) 

IF  DUM  MOO  7  .  8  THEN  (e) 

BEGIN  (3) 

URITE(0EST,'TimeB88  ’); 

URI TELN (OEST, SAVETIME  :  6  :  1); 

SAVETIME  8.8; 

END  131 
ELSE  (el 

URITE (OEST. *Time888  ’) 
aSE  (dl 
BEGIN  (41 

IF  DUM  MOO  3  -  8  THEN  If) 

BEGIN  (5) 

IHI  TE  (DEST,  ’  T  i  me888  ’); 

t* I TELN (DEST, SAVETIME  :  6  ;  1); 

SAVETIME  8.8; 

ENO  (5) 

ELSE  Ifl 

UR I TE (DEST , ’ T i me888  ’); 

IF  0UM-MAXL1NES  THEN  (g) 

BEGIN  161 

URI TELN (DEST,’  ’, SAVETIME  :  6  :  1); 

SAVETIME  ;•  8.8; 
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END:  (6) 

END;  (4) 

END  (2) 

ELSE  (c) 

IF  NOT  (EXAMINEE. TESTOROER (TINOEX1  IN  16.10.14.15]) 

THEN  (h) 

URITELNIOEST.’  * .SAVETIME  :  6  :  1); 

END;  (1) 

END:  (a  check tiaeout  *) 


PROCEDURE  TIME: 

BEGIN 

MINUTES  :-  TESTS. STTIME  OIV  60; 

SECONOS  :-  TESTS. STTIME  MOO  60; 

IF  MINUTES  >  0 
THEN  (a) 

URITE (0EST,MINUTES:3,  ’ :  ’ ) 

ELSE  la) 

URITE (DEST, ’  :*); 

IF  SECONDS  <  10 
THEN  lb) 

URITE (OEST. *0* .SECONDS) 

ELSE  lb) 

URITE (OEST. SECONDS:  2); 

MINUTES  :-  TESTS. STINSTRTI ME  DIV  60; 

SECONDS  :-  TESTS. STl NS TRTIfC  MOO  60; 

IF  MINUTES  >  0 
THEN  (c) 

URI TE (DEST, MINUTES:  3.  * :  * ) 

ELSE  (c) 

URITE  (DEST,*  :M; 

IF  SECONOS  <  10 
THEN  (d) 

URITE (DEST. ’0'. SECONDS) 

ELSE  (dl 

URITE  (OEST.  SECOfOS:2); 


URI TE (DEST. TESTS. STPROCTCALLS:2) ; 
(*  line  6  of  coapact  data  a) 
END; (*TIME*> 


(a  eend  detailed  or  aiaple  feedback  to  printer  or  ecreen  a) 
PROCEDURE  OUTPUTRESULTS; 

VAR  J.I.K.TNUM  :  INTEGER; 

SEVEN  t  PACKED  ARRAY [1.. 7]  OF  CHAR; 


(*  aet  info  and  urite  header  a) 


VAR  SHORT  NATE  :  STRING: 

BEGIN 

RESET (FILEOIRECTORY, INOEXNAHE) ; 

SEEK (F I  LED I REC TOR Y , EXAM I  NEE . TESTOROER  (T I NDEX) ) ; 
GET (FILEOIRECTORY); 

TNAME  :•  FI  LED I  RECTORY*. TESTNAHE; 

CLOSE (FILEOIRECTORY, LOCK) ; 

CURRSTRAT  :-  EXAMINEE.STRATEGYITINOEX] ; 

SHORT _NAME  :-  *UHAT’ ;  (a  SET  A  DEFAULT  a) 

CASE  EXAMINEE. TESTOROER ITINOEX)  OF 
0  :  SHORT_NAME  i-  ’  UK' ; 

1  :  SHORT  NATE  i-  '  GS’ ; 
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2 

SHORT  NAME 

X  - 

*  AR’  i 

3 

SHORTJJAME 

J  - 

•  MX’; 

4 

SHORT  NAME 

:• 

*  PC’; 

5 

SHORT  NAME 

:• 

•NO-1*: 

G 

SHORTJJAME 

’CS-1*: 

7 

SHORT  NAME 

:  - 

•  AP; 

8 

SHORT ~NAME 

x- 

*  MC*  t 

9 

SHORT  NAME 

•  EP; 

10 

SHORT "NAME 

:  • 

•CS-2’: 

11 

SHORT  NAME 

:  - 

•NO-2*: 

12 

SHORT  NAME 

:  ■ 

’NO-3’: 

13 

SHORT  NAME 

•N0-4’t 

14 

SHORT  NAME 

:  - 

•CS-3*; 

15 

SHORT  NAME 

s  • 

'CS-4* ; 

16 

SHORT  NAME 

:  - 

•MX-2’: 

17 

SHORTliAME 

:  • 

•  SP; 

18 

SHORT-NAME 

•MC-2’; 

19 

SHORT'NAME 

x  - 

•AR-2’: 

20 

SHORT  NAME 

:■ 

•El -2’; 

ENO;  (*  cases  *) 


URITELNIDEST,  SHORTJJAME) s  (*  end  of  line  four  of  coapact  data  *) 
ENO:  (*  infoheader  *) 

I - - - - ) 

PROCEDURE  CTOUT; 

BEGIN 

CASE  OJRRSTRAT  OF 

NONE  :  UR  I TELN (DEST, *  a**************' ) ; 

B 182222, 

B54321, 

R1MU7  •  nrr.iM  m 

URITE (OEST, TESTS. ITEHINFOU]  .THETA  :  2  :  3); 
URITELNIOEST, TESTS.  ITEMINFOII). ERROR  :  2  :  3)  i 
END;  111 
TIMED  :  BEGIN  (2) 

IF  TESTS.  ITEMINFOm. RTYPE  <>  SEVENCW  THEN  (a) 
BEGIN  (3) 

IF  KUl)  >  QUESTIONS)  OR 
(<U1>  >  TESTS.  NUMITEJ1S) 

THEN  (b) 

QCCK  TIMEOUT 
ELSE  lb) 

BEGIN  14) 

IF  TESTS. I TEHINFOtI+11 . ITETtOI  <-  0 
THEN  (c) 

CHE CXT I ME  OUT 
ELSE  (c) 

URITELNIOEST, 

TESTS.  I TEMIff Oil  J  .LATENCY  «  6  :  l)j 

END;  14) 

ENO:  13) 

END;  121 
END;  («  cases  *) 


END:  (a  ctout  *) 

I . I 


BEGIN  (*  outputresul ts  *) 

INFOHEAOER; 

I  «-  0: 

SUMTirt  0.0: 

LINESOUT : -0; 

UHILE  II  <-  QUESTIONS)  AND  (I  <-  TESTS. NUM ITEMS)  00 
BEGIN  111 

IF  TESTS.  I TEMINFO  III .  ITEMNUM  >  0  T)€N  la) 

BEGIN  12) 

IF  TESTS. I TEMINFO It J.RTYPE  <>  SEVENCHR  THEN  lb) 
BEGIN  131 

I  IF  TESTS.  ITEMINFOU).  ITEMNUM  <  10 

'  THEN  (cl 
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WRITE (DEST,*000’) 

ELSE  (c) 

IF  TESTS.  ITEMINFOtll . ITEMNUM  <  100 
THEN  Id) 

WRITE (DEST,*00*) 

ELSE  Id) 

IF  TESTS.  ITEMINFOtll .  ITEMNUM  <  1800 
THEN  (e) 

WRITE (OEST, ’0* )j 

WRITE  (DEST,  TESTS.  ITEMINFO  til.  ITEMNUM/*’ >5 
END:  13) 

SAVETIflE  TESTS.  ITEMINFOUJ  .LATENCY: 

IF  CURRSTRAT  -  TIMED  THEN 
SUMTIME  SUMTIME  +  SAVE TIME: 

CASE  TESTS. ITEMINFOtll.RTYPE  OF 
CHARVALUE  :  BEGIN  141 

CASE  TESTS. ITEMINFOtll. RESPONSE  OF 
•A*  :  WRITE (DEST, *  1  * ) ; 

’B’  :  WRITE (DEST, ’2’ ) j 

•C*  :  IRI  TE(DEST,  *3* ) : 

’0*  :  WRITE (OEST, ’4*): 

*£•  :  WRITE (DEST, ’5*): 

END:  (*  cases  «) 

IF  TESTS.  I TEMIhFO III  .CORRECT 
THEN  (fl 

WRITE (OEST,* 1*) 

ELSE  If) 

miTEtDEST/B*); 

END;  (4) 

I  NT VALUE  i  BEGIN  (S) 

WRITE (OEST, TESTS. ITEMINF0II1 . INTRESPONSE  :  1); 

IF  TESTS. ITEMINFOtll. CORRECT 
THEN  <g> 

WRITE  (OEST/ 1’ I 
ELSE  <al 

miTE(OEST/0')j 
END:  (SI 
SEVENCHR  :  BEGIN  (6) 

J  TESTS. I TEHIIFO III. ACOUNT ; 

FOR  K  j-  1  TO  J  00 
BEGIN  (7) 

IF  TESTS. ITEMINFO III . ITEMNUH  <  10 
THEN  (hi 

WRITE  (OEST/880') 

ELSE  (hi 

IF  TESTS. ITEMINFO  III. I TEMNUM  <  100 
TXN  lil 

WRI  TE  (DEST/ 80’ ) 

ELSE  (il 

IF  TESTS.  ITEMINFO  III .  ITEMNUH  <  1080 
THEN  f  II 

WRI TE (OEST,*  0’): 

IFI  TE  (OEST,  TESTS .  I TEM I NFO 1 1 1 . 1  TEMNUM. K)  j 

CASE  TESTS.  ITEMINFOtll. CHRRESPONSE (K1  OF 
•A’  :  WRITE  (OEST/ l’)j 

•B’  i  WRITE  (OEST/ 2*1: 

*C’  »  WRITE  (OEST/ 3’ )» 

’O’  :  WRITE(0EST/4’)j 

’E’  :  WRITE(OEST/S’ )  i 

END:  (•  caaee  ml 

IF  TESTS.  I  TEHINFO  Cl  1 .  ACORRECT  IK-11 
THEN  (k) 

WRITE  (OEST/  l’> 

ELSE  <k) 

miTE  (OEST/0’ I; 

WRITE  (OEST/ »’lj 
LINESOUT:aLINESOUT+li 
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END:  (7) 

TNUM  EXAMINEE. TESTOROERITINDEX); 

IF  (d+1)  >  QUESTIONS)  OR 

(d+1)  >  TESTS. NUMITEMS)  THEN  <11 
BEGIN  (8) 

IF  (U  -  7)  AND  (TNUM  -  10))  OR 

(<J  -  3)  AND  (TNUM  -  ID)  THEN  <■) 

BEGIN  <91 
URITELN(DEST, 

TESTS. I TEMI NFO  III . LATENCY: S: 1 ) ; 

IF  J  -  7  THEN  (n) 

SAVETIME  :.  0.0;  (*  420.0  -  SUMTIME;  *) 

IF  J  -  3  THEN  (o) 

SAVETIME  0.0;  (*  180.0  -  SUMTIME:  *) 

ENO;  (9) 

CHECKTIME OUT; 

ENO  (8) 

ELSE  II) 

BEGIN  (10) 

IF  TESTS. ITEMINFO  d+11 . ITEMNUM  <-  0  THEN  <p) 
BEGIN  111) 

IF  <(J  -  7)  AND  (TNUM  -  10))  OR 

<(J  •  3)  AND  (TNUM  -  ID)  THEN  (q) 

BEGIN  (12) 

UR!TELN(OEST. 

TESTS.  ITEMINFO II ]  .LATENCY:6: 1) ; 

IF  J  -  7 
THEN  (r) 

SAVETIME  0.0;  (420.0  -  SUMTIME;) 

IF  J  -  3 
THEN  (e) 

SAVETIME  0.0;  <180.0  -  SUMTIME;) 

END;  (12) 

CHECKTIMEOUT; 

ENO  (11) 

ELSE  (p) 

UR  I TELN  (OEST.  TESTS.  I  TEMIfFO  1 1 ) .  LATENCY:  6: 1) ; 
ENO;  (10) 

END;  (6) 

ENO:  (*  caees  *) 

CTOUT ; 

END:  (2) 

I  :■  I  ♦  1;  («  each  I  outputs  a  line  5  of  coapact  data  s) 

END;  (1) 

TIME: 

IF  EXAMINEE. PREDASVABtT INDEX)  <  10.0 
THEN 
BEGIN 

URITE (OEST,’  ’);  (s  RIGHT  JUSTIFY  PASVAB  OUTPUT  *) 

If)  I  TELN  (OEST ,  EXAM  I  NEE .  PREDASVAB I T I NOEXI :  5: 2) ; 

ENO 

ELSE 

UR I TELN (OEST , EXAM I  NEE . PREDASVAB ( T I NOEX) : S: 2) ; 

(s  end  of  line  S  of  compact  data  ») 


END;  (s  outputresul ts  s) 


! . ) 

BEGIN  (s  file  end  summary  *) 

ENAME  ’  •; 

FOR  K  :-  0  TO  8  00 
ENAME  (K+l)  :•  EXAMINEE.  I  OKI ; 

FNAME  :-  CONCATCE’ .ENAME) ; 
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FNAME  s-  CONCAT (FNAME, ’ . TEXT’ ) j 
FNAME  )-  CONCAT CQTEXT  «  *  .FNAME); 

REWRITE (DEST, FNAME)  ; 


(*  write  personal  data  to  file  «) 
SHOUEXAMINEE; 

SLOT  ESLOTj 

RSLOT  SLOT  *  GMAXSUBTEST; 

FOR  TINOEX  1  TO  GMAXSUBTEST  DO 
BEGIN  (1) 

URI  TEC  .  ’ ) ; 

CURRSTRAT  EXAM I  NEE. STRATEGY (T INDEX] ; 

LOADRESULTS (RSLOT ) i 
IF  TESTS. NUT1I TEMS  >  0  THEN  lal 
BEGIN  (2) 

URI TELN (OEST); 

OUTPUTRESULTS; 

END:  (21 

RSLOT  s-  RSLOT  +  1; 

END;  (1) 

MINUTES  EXAMINEE. TOTTIMECONSOLE  DIV  60; 
SECONDS  s-  EXAMINEE. TOTTIMECONSOLE  MOO  60; 
UR1TE  (DEST,IHNUTESs3, ’ s  ’ ) ; 

IF  SECONDS  <  10 
THEN  (b) 

URITE (OEST. ’0*. SECONDS) 

ELSE  (b) 

URITE (DEST, SECONDS; 2) ; 

MINUTES  s-  EXAM I  NEE. OR I ENTAT IONTIME  DIV  60; 
SECONDS  EXAMINEE. ORIENTATIONTIME  MOO  60; 
URI TE (DEST. MINUTES) 3. •«') ; 

IF  SECONDS  <  10 
THEN  (c) 

URITE (OEST.  ’0’. SECONDS) 

ELSE  (c) 

URITE (DEST. SEC0NDS;2); 

URI TELN (DEST. EXAMINEE. NUMPR0C;2) ; 

URI TELN (DEST); 

CLOSE (DEST. LOCK) ; 

END;  (a  file  end  sueeary  «) 


(«  display  examinee  personal  data  *) 

PROCEDURE  SHOUEXAMINEE; 

VAR  J  ;  INTEGER; 

( . 

(e  display  some  data  «) 

PROCEDURE  01; 

BEGIN 

U1TH  PINFO  00 
BEGIN  (1) 

URI TELN (DEST,’  EXAMINEE  PERSONAL  DATA*) ; 

URITE (DEST. ’Last  Name’); 

URITE  (DEST. ’  ;  ’.LASTNAME); 

URITE (OEST.’  First  Naas'); 

URITE (OEST,’  ;  ’ .FIRSTNAME) ; 

URITE (DEST, ’  Middle  Initial’); 

URI TELN (OEST,’  ;  ’ .MINITIAL) ; 

URI TELN (DEST, ’Social  Security#  ;  * .EXAMINEE. ID) ; 

URITE (OEST, ’Current  Address  (State)’); 

URITE (DEST,’  ;  ’ .CURRADORESS) ; 

URITE (DEST,’  Home  of  Record  (State)’); 

URI TELN (DEST,’  :  ’ .HOMEOFREC) ; 

URITE (DEST, ’Citizenship’); 

URITE (DEST,’  ;  ’ .CITIZENSHIP); 

URITE (OEST. ’  Sex’); 

URI TELN (DEST,’  :  ’.SEX); 

URITE (OEST, ’Population  Group’); 

URITE (DEST,’  ;  ’.POPGROUP); 


Sep  28  10:24  1983  EMGfl.OIR/E. SUMMARY. TEXT  (  Write  examinee  data  to  textfile  for  SPSS)  Page  8 


WRITE IDEST, ’  Ethnic  Group’ ) ; 

URITELNIDEST, ’  :  ’.ETHNIC): 

URITE(D£ST, ’Mar i tal  Status’): 

URI IELN  IDEST, ’  :  ’.MARITAL): 

URI TEIDEST, 'Number  of  Dependents’); 

WRITELNIOEST.’  :  ’ .DEPENDANTS) ; 

URI TEIDEST, ’Date  of  Birth’): 

WRITELNIOEST. ’  :  ’ .BIRTHDATE) ; 

END;  (1) 

END:  (*  dl  «) 

I . ) 

BEGIN  («  show  examinee  «) 

IF  SCREEN 
THEN  (a) 

PAGE (OUTPUT) ; 

Dl: 

WITH  PINFO  00 
BEGIN  III 

URI TEIDEST. ’Education’); 

URJTELNIDEST,’  :  ’ .EDUCATION) : 

WRI TEIDEST. ’Test  Id’); 

WRITELNIOEST.’  :  ’.TESTIO); 

WRI  TEIDEST,  ’AFQT’ ) ; 

WRITELNIDEST, ’  :  ’.AFQT); 

WRI TEIDEST.’ ASVAB  Scores’): 

URITELNIDEST, *  :  ’.ASVAB); 

URI TE (OEST, ’Date  of  Enlistment’); 

URITELNIDEST.’  ;  ’ .ENLISTDATE) : 

WRITE IDEST, ’Active  Service  Date*); 

WRITELNIOEST.’  s  ’ .ACTSEROATE) ; 

WRITE IDEST. ’Rating  /  MOS’); 

URITELNIDEST.’  :  T.ENL); 

WRITE  lOEST.’AFEES’); 

URITELNIDEST.’  :  ’.AFEES); 

URI TEIDEST. ’Branch  of  Service’); 

URITELNIDEST.’  i  ’.BOS); 

WRITE IDEST. ’Retest  ASVAB’); 

URITELNIDEST.’  ;  ’.POSTASVAB); 

URI TEIDEST. ’Test  Order’ ); 

URITELNIDEST.’  i  ’ , STESTOROER £01 , STESTOROER III); 

END;  111 

END:  (*  shouexaminee  *) 

I - - - ) 

I*  send  detailed  or  simple  feedback  to  printer  or  screen  «) 

PROCEDURE  OUTPUTRESULTS; 

VAR  J.I.K  :  INTEGER: 

SEVEN  :  PACKED  ARRAY  Cl.. 71  OF  CHAR; 

I . ) 

(*  get  info  and  write  header  «) 

PROCEDURE  INFOHEAOER; 

BEGIN 

IF  SCREEN 
THEN  la) 

PAGE  (OUTPUT); 

RESE  T  IF  I LED I  RECTOR Y . T I  NOEXNAME ) : 

SEEK  IF  I  LEO  I  RECTORY. EX AM I  NEE . TESTOROER  (T I NOEX) ) ; 

GET  (FILED1RECT0RY) s 

TNAME  :•  FILEDIRECTORY". TESTNAME; 

CLOSE  IF  I LEO I  RECTOR Y . LOCK ) ; 

CURRSTRAT  EXAMINEE. STRATEGY  IT  I NOEX J ; 

URITELNIDEST.’  ’:2S,’Test  :  ’.TNAME); 


URITELNIDEST); 

WRI TE (OEST, ’ I  tern  U  Response(s)  Correct  Ability  Variance’); 
URITELNIDEST,’  Elapsed  Tims  (sec)’); 

URI  TE  IDEST,  ’ -  - -  -  -  - ’); 


264 
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URI TELN (OEST,’  - - - ’); 

END;  (*  infoheader  *) 

1 . . . . . I 


{*  display  time  information  *) 

PROCEDURE  TIME INFO; 

BEGIN 

URITELN(OEST); 

MINUTES  TESTS. STTIME  DIV  68; 

SECONDS  TESTS. STTIME  MOO  68; 

URITE (OEST, ‘Elapsed  Time  for  subtest  :  *); 

IF  MINUTES  >  8 
THEN  (a) 

URITE (DEST, MINUTES, *  minute(s)  and  *); 

URI TELN (OEST, SECONOS, ’  sscond(s) . ’ > ; 

MINUTES  TESTS.ST1NSTRTIME  DIV  68; 

SECONDS  TESTS.STINSTRTIME  MOO  68; 

URITE (OEST, ’Elapsed  time  for  instructions  :  ’); 

IF  MINUTES  >  8 
THEN  ibl 

URITE (DEST.MINUTES.*  minute(s)  and  '); 

UR1TELN(0EST, SECONDS,’  second(s) . ’ ) ; 

URI TELN (DEST, ’ U  of  Subtest  proctor  calls  :  ’ .TESTS. STPROCTCALLS) ; 

IF  SCREEN  THEN  (c) 

BEGIN  (1) 

URI TELN; 

STALL; 

ENO;  (1) 

END:  («  timeinfo  ») 

( . I 

BEGIN  (m  outputresu I ta  *) 

INFOHEADER; 

I  :*  0; 

UHILE  (I  <-  QUESTIONS)  AND  (I  <-  TESTS. NUHITEMS)  DO 
BEGIN  (II 

IF  TESTS.  ITEMINFOIIJ .  ITEHNUM  >  8  THEN  (a) 

BEGIN  (21 

IF  TESTS. ITEHINFOIII .RTYPE  <>  SEVENCHR 
THEN  lb) 

URITE  (OEST,  TESTS.  I  TEMINFOtl).  I TEMNUM  ;  4); 


**a 

W; 


CASE  TESTS. I TEMINFO III. RTYPE  OF 
CHARVALUE  ;  BEGIN  (3) 

URITE  (DEST,  TESTS.  I  TEMINFO  II)  .RESPONSE  ;  18); 

IF  TESTS.  ITEMINFOIIJ. CORRECT 
THEN  (c) 

URITE (OEST,’  Yee  ’) 

ELSE  (c) 

URITE  (OEST,  ’  No 

ENO;  (3) 

I NT VALUE  :  BEGIN  <41 

URITE (DEST, TESTS. I TEMINFO  III . INTRESPONSE  :  11); 
IF  TESTS. I TEMINFO  III. CORRECT 
THEN  (d) 

URITE  (OEST,’  Yes  ’> 

ELSE  (d) 

URITE  (DEST,’  No  ’); 

END;  (4) 

SEVENCHR  i  BEGIN  (5) 

J  TESTS.  I  TEMINFO  II).  ACOUNT; 

FOR  K  1  TO  J  00 
BEGIN  (6) 

URITE (DEST, TESTS. I TEMINFO  III. I TEMNUM  :  4); 
URITE  (DEST,  1C,  ’  ’:18); 

UR I TE (OEST , TESTS. ITEMINFOIIJ . CHRRESPONSE  (K) ) ; 
IF  TESTS. 1 TEMINFO  III  .ACORRECT  CK-1J 
THEN  fe) 

URITE (DEST,’  Yes  ’) 
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ELSE  fe) 

URITE (DEST/  No  ’); 

UR  I TE  (OEST, '  on*  Mm  *1; 

IF  K  -  J 
THEN  (fl 

UR I TELN (DEST, TESTS. ITEM INFO! II. LATENCY  :  9:1) 
ELSE  Ifl 

UR  I  TELN  (DEST.*  cm*  ’) 

END;  IS) 

URI TELN (OEST )j 
END;  (51 
END;  (*  cases  *) 

CASE  CURRSTRAT  OF 

NONE  :  URI  TELN  (DEST/  *****  Mm  ****»'); 

B1 02222, 

B54321. 

B108642  :  BEGIN  (71 

URITE(DEST, TESTS. ITEMINFOtll. THETA  :  12  :  3): 

URITE  (OEST. TESTS.  ITEMINF0U1. ERROR  :  12  :  3); 

UR  I  TELN  (OEST/  Mm'); 

END:  (71 
TIMED  :  BEGIN  <81 

IF  TESTS.  ITEMINFOtll. RTYPE  <>  SEVENCHR  THEN  (g) 

BEGIN  19) 

kill  TE  (OEST/  *****  ’): 

URITELNIOEST, TESTS.  ITEMINFOtll. LATENCY  :  9  :  l)j 
EMI;  (91 
END;  (8) 

END;  («  cases  «) 

ENO;  (2) 

I  :•  I  +  1; 

ENO;  (1) 

TIMEINFO; 

ENO:  («  outputresul ts  *) 

I . - . 1 


(«  get  uhich  examines  and  where  to  send  summary  *) 

PROCEDURE  UHOANOUHERE; 

BEGIN 

LOAOINOEX; 

ENTERIO; 

SLOT  01 RINOEXNUM (EXAMINEE. 10); 

IF  SLOT  <  0  THEN  (a) 

BEGIN  (1) 

GOTOXY(0.12): 

URITELNCNo  record  in  file  with  10  *  .EXAMINEE.  10) ; 

URI TELN; 

STALL: 

EXIT(ESUMMARY) ; 

ENO  (1) 

ELSE  (a) 

BEGIN  (2) 

PAGE (OUTPUT) ; 

GOTOXY (18,0) ; 

URITE (’OUTPUT  SELECT  MENU’); 

GOTOXY (0.4); 

URITECSeiect  one  of  the  following  options  by  entering  its  nueber.*); 
GOTOXY (IS, 9); 

URITECl.  QUIT’); 

GOTOXY(16,10) ; 

URI  TEC  2.  SUMMARY  TO  CONSOLE’); 

GOTOXY (IB. 11); 

URI TE (’3.  SUMMARY  TO  PRINTER’); 

GOTOXY (16. 12); 

URI  TEC  4.  SUMMARY  TO  FILE'); 

GOTOXY  (IB. 16) ; 

URI TE ( ’Enter  Choice  U  ;  ’); 

OPTION  :-  GETCHAR(C1’./4’J. TRUE, TRUE, TRUE); 
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TOfILE  FALSE: 

SCREEN  FALSE; 

PRINTER  FALSE; 

CASE  OPTION  OF 

*1*  :  EXIT (ESUMMARY) ; 

*2*  :  BEGIN  13) 

REUR I TE10EST,’ CONSOLE  :  '); 

SCREEN  TRUE; 

ENO;  (3) 

’3’  :  BEGIN  14) 

PRINTER  TRUE; 

REUR I TE 1DEST , UN  I TNUMPR I NTER) ; 

ENO;  (4) 

’4*  :  BEGIN  (5) 

TOFILE  TRUE; 

PAGE  10UTPUT ); 

URITEl’Uri ting  exaeinee  records  to  file  .’); 
LOADEXAMINEE (SLOT) ; 

LOADPOATA(SLOT) ; 

FILEENOSUMMARY  (SLOT) ; 

END;  (5) 

ENO;  (*  cases  «) 

ENO;  (2) 

ENO; (*  who  and  where  *) 


1 . ) 

BEGIN  (*  exaeinee  sueearg  *) 

(«  get  which  exaeinee  «) 

UHOANOUHERE; 

IF  NOT  TOFILE  THEN  (a) 

BEGIN  11) 

(*  load  exaeinee  teet taking  info  e) 

LOADEXAMINEE (SLOT); 

(«  load  exaeinee  pereonal  data  «) 

LOAOPOATA (SLOT) ; 

SHOUEXAMINEE; 

IF  SCREEN  THEN  (b) 

BEGIN  12) 

URITELN (OEST); 

STALL; 

PAGE (OUTPUT); 

ENO  (2) 

ELSE  (b) 

FOR  K  1  TO  5  00 
URITELN(OEST); 

RSLOT  SLOT  *  GMAX SUBTEST ; 

TESTCOUNT  t-  0; 

IF  EXAMINEE. LASTTEST  <>  GMAXSUBTEST  T)CN  (c) 

BEGIN  13) 

FOR  TINOEX  1  TO  GMAXSUBTEST  DO 
BEGIN  (4) 

CURRSTRAT  EXAMINEE. STRATEGY tTINDEX) ; 

LOAORESULTS (RSLOT); 

IF  TESTS. NUM ITEMS  >  0  THEN  Id) 

BEGIN  15) 

TESTCOUNT  TESTCOUNT  +  1; 

IF  NOT  SCREEN  THEN  (e) 

BEGIN  (6) 

FOR  K  1  TO  80  00 

URITE (OEST.’e’); 

URI TELN(DEST) ; 

URITELN (OEST) ; 

ENO:  (S) 

OUTPUTRESULTS; 

FOR  K  1  TO  2  00  URITELN (OEST); 

ENO;  (5) 
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RSLOT  RSLOT  +  1: 

ENO;  (4) 

END;  (3) 

IF  SCREEN 
THEN  If) 

PAGE (OUTPUT) 

ELSE  (f) 

BEGIN  17) 

FOR  K  ;«  1  TO  80  DO 
URITE IDEST,’*’); 

URITELN(DEST); 

URITELN(DEST); 

END;  17) 

IF  TESTCOUNT  <>  0  THEN  lg) 

BEGIN  18) 

fllNUTES  EXAMINEE. TOTTIMECONSOLE  DIV  60; 

SECONDS  EXAMINEE. TOTTIMECONSOLE  MOO  60; 

URI TELNIDEST, ’ Total  session  elapsed  tine  :  MINUTES,’  Minute(s)  and 
SECONDS,"  secondls) . ’ ) ; 

MINUTES  EXAMINEE. ORIENTATIONTIME  DIV  60; 

SECONOS  EXAMINEE. ORIENTATIONTIME  MOO  60; 

URI TELNIDEST, 'Faei I iar i zat ion  elapsed  tine  :  ’.MINUTES,*  einutels)  and  ', 
SECONDS,'  secondls).'); 

URI TELNIDEST, ' tt  session  proctor  calls  :  ’ .EXAMINEE. NUMPROC) ; 

URI  TELNIDEST): 

ENO  18) 

ELSE  lg) 

BEGIN  (91 

UR I TELNIDEST); 

URITELNIOEST); 

UR I TELNIDEST. ’Exaeinee  has  not  taken  any  sub  tests.’); 

URI TELNIDEST): 

END;  191 
IF  SCREEN 
THEN  (h) 

STALL; 

CLOSE (OEST, LOCK); 

ENO;  III 

IF  TOFILE  TEEN  li) 

BEGIN  (10) 

URITELN; 

URITELN; 

URITEI’Sumarg  of  exaeinee  is  in  file  ’.FNAME); 

URITELN; 

URITELN; 

STALL; 

END;  (10) 

END;  I*  esumearg  «) 
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Textf i le 
Codef  i  le 


EMGR.01R/E. ZERO. TEXT  Volume 

E. MGR. CODE  (’Include*  file)  Voluee 


TFILES 

CATDATA 


1.  1982 


(**s*  initialize  the  directory  of  a  file 
PROCEDURE  ZERODI RECTORY; 

VAR  MAXRECORDS , 

I  s  INTEGER; 


(*  zero  out  the  examinee  directory  *) 
PROCEDURE  ZAP INDEX; 

BEGIN 

FOR  I  8  TO  MAXEXAM I NEE  DO 
DIRII1. UNUSED  TRUE; 

RESET  (FILEOIR,  INDEXNAME) ; 

SEEK (FILEDIR.8) ; 

FILEDIR*  DIR; 

PUT (F I LED I R); 

CLOSE (F I LED I R. LOCK); 

ENO;  («  zap  index  *) 


(«  zero  out  the  examinee  test  taking  information  ») 
PROCEDURE  ZAPTESTINFO; 

BEGIN 

RESE  T (F I LEEXAM I NEE . I NFONAME ) ; 

SEEK  (FILEEXAMINEE.B) : 

FOR  I  0  TO  MAXEXAM I NEE  DO 
BEGIN  (1) 

FILEEXAHINEE*  EXAT1INEE; 

PUT (FI LEEXAM I NEE) ; 

ENO;  ID 

CLOSE (FI LEEXAM I NEE, LOCK) ; 

END;  («  zaptestinfo  *) 


(«  zap  the  personal  info  of  examinee  *) 
PROCEDURE  ZAPPERSONALINFO; 

BEGIN 

RESET (P INF OF I LE , P I NFONAME ) ; 

SEEK (PINFOFILE.0); 

FOR  1  s-  0  TO  MAXEXAMINEE  00 
BEGIN  (II 

PIfFOFILE*  PINFO; 

PUT (PINF0F1LE) ; 

ENO;  (11 

CLOSE (PINFOFILE.LOCK); 

END;  (*  zappersonal info  *) 


(«  zap  examinee  test  results  *) 
PROCEDURE  ZAPRESULTS; 

VAR  J,K  ;  INTEGER; 

BEGIN 

K  (MAXEXAMINEES  *  STESTS)  +  STESTS 
RESET (FILETESTS. RESULTS); 

SEEK  (FILETESTS, 8); 

URITELN; 

FOR  I  8  TO  K  00 
BEGIN  (1) 

IF  (I  MOO  5)  -  0  THEN  URITEC.’); 
FILETESTS*  TESTS; 
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PUT (FILE TESTS): 

END;  (1) 

CLOSE (FILETESTS.LOCK) ; 
ENO;  (*  zapresults  ») 


BEGIN  (*  zero  directory  *) 

PAGE  (OUTPUT): 

SQUAWK; 

GOTOXY (16,2) : 

UR  I  TEC  **********  UARNING  ***»»*****’): 

GOTOXY (0,5); 

URITELN! 

'You  have  selected  the  purge  directory  option.  This  uill  flush  auay  all') 
URITELNCexistirg  examines  data  in  the  files  listed  belou.’); 

GOTOXY (7. 9); 

URI TE( I  NOEXNAME); 

GOTOXY (7. 10); 

URI TE  ( INF  ON  ATE) ; 

GOTOXY (7, 11); 

URI TE (RESULTS): 

GOTOXY (7. 12): 

URITE(PINFONAME); 

GOTOXY (0,14): 

IF  BACKUP  THEN 

URITECThese  are  the  DONE  EXAMINEE  files.') 

asE 

URITECThese  are  the  SESSION  files.*); 

URITELN; 

URITECOo  you  wish  to  purge  these  files?  (Press  "N”  or  * ’Y”)  t  ’); 
IF  GETCHARU'y'.'n’.'Y'.’N']. TRUE. TRUE, TRUE)  IN  CY'.'y’]  THEN 
BEGIN  (1) 

URITELN: 

URITELN; 

URITELNCLast  chance  !!!!!!!!!'); 

SOU AUK; 

URITECAre  you  sure  you  want  to  purge  ?  (Press  *'N"  or  "Y”)  :  *); 
IF  GETCHARd’y'.'n'.’Y'.’N'l. TRUE. TRUE, TRUE)  IN  CY'.'y']  THEN 
BEGIN  (2) 

PAGE (OUTPUT) ; 

URITECPurging  files.'); 

INITEREC; 

ZAPINOEX; 

ZAPTESTINFO; 

ZAPPERSONALINFO; 

ZAPRESULTS; 

ENO;  (2) 

ENO;  (1) 

ENO:  («  zero  directory  *) 


SMGR.DIR: 

Subdirectory  -  Strategy  Manager  Textfiles 


271  [""previous  page 
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(*  *) 

(*  Text  file  :  SMGR.OIR/S. MCR. TEXT  Volume  :  TFILES  e) 

(«  Codefile  :  S. MGR. CODE  TRAT  Volume  :  CATDATA  *) 

(*  *) 

ssMsaaesssssseeeeaaeeaesees*  twwww  *******) 

(«  File  last  modified  :  Feb  23,  1983  NPROC  *) 

(«  This  program  allows  access  to  the  various  data  structures  used  bg  the  «) 
(*  different  strategies  of  computer  adaptive  testing  Methods.  Through  this  *) 

(«  access,  one  can  see  hou  the  strategies  are  set  up,  change  data  in  the  *) 

(*  files,  or  enter  neu  data.  Currently,  onlg  infotables  for  the  Bayesian  *) 

(«  method  are  implemented.  «) 


(*«S+*) 

PROGRAM  STRATEGY; 
USES  CHA INSTUFF, 
REALMOOES, 
TRANSCEND; 


CONST 


(«  asc i  i 
ETX  -  3; 
BELL  -  7; 
NUL  -  0; 


values 


LARROU  -  8; 
RARROU  -  21; 
RET  -  13; 

UP  -  11; 
OOUN  -  10; 


«) 


ESC  -  27; 

SPACE  -  32; 

NIL  -  -1; 

ASCI IOFFSET  .  48; 
MAXLINEBUF  -  79; 


(*  ascii  zero  *) 

(*  string  buffer  size 


*) 


(*  infotable  size  *) 

TMIN  -  -2.2S;  (*  Louest  value  of  ability  level.  Theta  *) 

OT  -  0. 125;  (•  Increaent  value  ~~  Theta  in  each  rou  in  table  is  OT 

larger  than  previous  rou  e) 

(«  test  directory  name  «) 

I NOEXNAME  -  ’CATDATA: TEST INDEX. OATA’ ;  (e  test  directory  *) 

DATANAME  -  ’CATOATA: I TEMPOOL.OATA* ;  (e  Question  directory  e) 


(«  slots  available  in  directory  *) 

MAXSUBTESTS  -  20; 

(s  maximum  question  pool  per  test  *) 

MAXI TEMPOOL  -  300; 

(e  maximum  It  of  sample  questions  a) 

MAXSAMPLES  -  5; 

UNITNUMPRINTER  -  ’PRINTER:*; 

OEFAULTFILE  -  ’STRAT-INFO. TEXT’ ; 

VERSION  -  ’  11.03) '; 

TYPE  OIROATA  -  PACKED  RECORD  <»  directory  for  tests  *> 

UNUSED  :  BOOLEAN, 

TESTNAME  :  STRING, 

ITEMCOOE  :  PACKED  ARRAY 

[0. .  MAX I TEMPOOL) 

OF  INTEGER; 

END; 

(*  type  of  question  response  *) 

SEVENTYPE  -  PACKED  ARRAY II.. 71  OF  CHAR; 

(«  Different  types  of  ways  to  answer  a  question  e) 

1 TEMRESPONSES  •  (CHARVALUE,  («  normal  multiple  choice  *) 

I  NT VALUE,  (*  Integer  value  as  ansuer  *) 
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SEVENCHR);  (e  seven  characters  saved  as  answer  e) 

(a  question  ptrs/data  ,  inforaation  for  each  question  *) 

ITEMOATA  .  PACKED  RECORD 

(a  flags  if  graphics  itea  *) 

GRAPHICS  :  BOOLEAN: 

(*  valid  response  ranges  for  Multiple  choice  *) 
LOUANSUER. 

HIGHANSUER  :  CHAR; 

(*  block  U  in  file  where  text  starts  *) 

ITEHBLOCK, 

(a  byte  U  in  block  where  text  starts  a) 

ITEHPTR, 

(*  U  of  answers  if  Multiple  question  screen  *t) 
ANSUERCOUNT  :  INTEGER: 

(s  inforaation  paraMeters  for  bayesian  strategy  «) 
A.B.C, 

(*  currently  unused  *) 

PROPCORRECT. 

POINTS I  SERIAL, 

YOPT, 

XOPT, 

ourtm, 

oumY2, 

0UTT1Y3  :  REAL: 

(«  correct  answer  to  question  *) 

CASE  ATYPE  :  I TEHRESPONSES  OF 
CHARVALUE  :  (ANSUER  :  CHAR); 

INTV ALOE  :  (INTANSUER  :  INTEGER); 

SEVENCHR  :  (CHRANSUER  :  SEVENTYPE); 

END; 

SET OF CHAR  -  SET  OF  CHAR; 

VAR  LETTERS, OIGITS, CHARACTERS  :  SET  OF  CHAR; 
output, 

COfTIANO  :  CHAR: 

ESCPROC  :  BOOLEAN; 

(«  string  character  buffer  «) 

LINEBUF  :  PACKED  ARRAY  (8.  .MAXUNEBUF)  OF  CHAR; 

CURRINOEXRECNlin  :  INTEGER;  (*  record  #  of  file  directory  *) 

(*  test  directory  *) 

DIRECTORY  z  OIROATA; 

FILEQIRECTORY  :  FILE  OF  OIROATA; 

(*  test  question  ptrs/data  «) 

I  TEH INFO  ;  ITEHOATA; 

FILEI TEMINFO  :  FILE  OF  ITETDATA; 

(a  output  file  for  test  listings  e) 

OEST  :  TEXT; 

(«  directory  record  inforaation  a) 

OIRJNFO  :  ARRAY  18.. MAXSUBTESTS)  OF  RECORO 

(*  record  occupied  a) 

NOTUSEO  :  BOOLEAN; 


(a  subtest  name  a) 
TNAHE  :  STRING; 
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(*  #  i teas  in  eubtest  *) 
ITEHCOUNT  :  INTEGER: 

END: 


(«  This  procedure  is  called  by  aost  of  the  other  procedures.  It  clears  a) 
(e  the  console  screen.  *) 

PROCEDURE  PAGE (DUMMY  :  CHAR); 

BEGIN 

URITE  (CHR(28) ) : 

GOTOXY (0,0) ; 

ENO; 


(*SI  /TF I LES/SMGR. DIR/S. UTL. TEXT  e)  (*  utility  procedures  *) 


(*  This  procedure  writes  the  directory  information  to  a  record. 

(«  It  puts  into  an  array  the  naaes  of  the  subtests.  If  a  test  had  been 
(*  deleted  from  the  file,  there  will  be  no  naae  in  the  array  location 
(«  corresponding  to  the  place  in  the  file  where  it  had  been,  and  a 
(*  boolean  is  set  to  indicate  that  it  is  blank. 

(«  This  procedure  is  called  by:  Prograa  STRATEGY  aain  routine  e) 


PROCEDURE  GETDIRINFO: 

VAR  I  ,K, I  COUNT  :  INTEGER: 

(*  all  other  variables  are  global  to  Prograa  STRATEGY  *) 


BEGIN  (*  get  dir  info  •) 


(«  initialize  the  directory  information  e) 


(«  initialize  the  directory  ir 
FOR  I  :-  0  TO  MAXSU8 TESTS  00 
OIRINFO [II  .NOTUSEO  :-  TRUE: 


(s  get  the  directory  inforaation  *) 
I  :-  0: 

RESET IFILEDIRECTORY, INOEXNATE) : 
REPEAT 

SEEK IFILEDIRECTORY, I); 

GET IFILEDIRECTORY): 


IF  NOT  IFILEDIRECTORY''. UNUSED) 

THEN 

BEGIN  (1) 

DIRECTORY  :-  FILEOIRECTORY"': 

OIRINFO U) .NO TUSED  :-  FALSE: 

OIRINFO II l.TNAME  :-  DIRECTORY. TESTNAME; 
1 COUNT  0: 

OIRINFO tl ). ITEHCOUNT  »-  ICOUNT: 

END:  (1) 


I  :-  I  ♦  1: 

UNTIL  I  >  HAXSUB TESTS; 

CLOSE (F I LEO I  RECTORY , NORMAL ) : 
END:  I*  getdirinfo  e) 


1*  Given  a  question  code,  this  function  returns  the  location  «) 
(«  of  the  question's  data,  8  text  pointers.  *) 
(*  This  function  is  called  by:  Procedure  ?  *) 


FUNCTION  SLOT (CODE  :  INTEGER)  :  INTEGER: 

VAR  INDEX  :  INTEGER: 

FOUNO  :  BOOLEAN; 

I*  All  other  variables  are  global  to  Program  STRATEGY  e) 


BEGIN  I*  slot  *) 

INDEX  :-  MAXSAMPLES  +  1; 
FOUND  :•  FALSE: 


,*  *  •  *  •  *  •  “  »*'  •  *  .  »  .*•  .  • 

A  A’  \  **■  •«.*  '  *  *  '  -  •  «_■ 


ISA. 


«.L 
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REPEAT 

IF  DIRECTORY.  I TET1C0CE (INDEX]  -  COOE 
THEN 

FOUND  «-  TRUE 

ELSE 

INOEX  INOEX  +  Is 

UNTIL  (INOEX  >  NAXITEnPOOL)  OR  (FOUND) t 

IF  RDUNO 
THEN 

SLOT  INOEX 

ELSE 

SLOT  NIL;  (*  nil  here  ia  not  a  pointer,  but  an  integer  «) 

END;  (*  elot  a) 


(a  This  procedure  lists  the  naaes  of  the  tests  that  are  in  the  database,  «) 
(a  and  loads  the  record  containing  itescode  nusbers  for  the  single  test  e) 
(*  selected.  This  procedurs  is  callsd  by  the  following  procedures  :  e) 

(s  NEUINFO  in  textfile  STRAT-NEU,  LISTINFO  in  textfile  STRAT-LIST,  e) 

(e  VERIFY  in  textfile  STRAT-VERF,  OOOIFYINFO  in  texfile  STRAT-nOOF,  and  *) 
(«  FINOINFO  in  textfile  STRAT-F1NO.  a) 

PROCEDURE  LOAOTEST  (OESSAGE  :  STRING) ; 

(a  Constant  MAXSUBTESTS  is  global  to  Progras  STRATEGY.  a) 

VAR  Q. 

TESTNUH, 

RECNUT1  :  INTEGER; 

OX TEST  :  BOOLEAN; 

TEXTCOOE  t  CHAR; 

(«  All  other  variables  are  global  to  Prograe  STRATEGv.  s) 


(«  This  procedure  lists  a  directory  of  the  test  naaes  to  the  screen,  a) 
(«  This  procedure  is  called  by:  Procedure  LOAOTEST  a) 

PROCEDURE  LISTTESTS; 

(a  Constant  tIAXSUBTESTS  is  global  to  Prograe  STRATEGY,  a) 

VAR  I.J  :  INTEGER: 

(a  OIRIff O.NOTUSED  and  .TNATC  are  global  to  Prograe  STRATEGY,  a) 

BEGIN  (a  list  tests  a) 

PAGE (OUTPUT); 

GOTOXY (24,0) ; 

URITECLIST  OF  SUBTESTS’); 

I  0; 

J  0; 

GOTOXY (0.3); 


80 


REPEAT 

IF  NOT  (OIRINFOIIl  .NOTUSEO)  (a  The  t« 
THEN 

BEGIN  (1) 

J  :■  J  +  1; 

IF  J  <-  10 
T)£N 

GOTOXY (0,2+J) 

ELSE 

GOTOXY (40, 2+J-10); 
WRITEU.'.  '  .OIRINFOIIl  . TNAHE); 
END;  (1) 

I  I  +  1; 

UNTIL  I  >  tIAXSUBTESTS; 

ENO;  (a  I i sttests  a) 


BEGIN  (a  loadtsst  a) 
OX TEST  FALSE; 
LISTTESTS; 
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RESET (FILED I RECTORY, INOEXNAfE) j 
REPEAT 

GOTOXY(0, 15); 

UR  I TELNC  INSTRUCTIONS  *  Enter  choice  «,  then  preee  <RET>.  * ) ; 

URITE(*  To  escape,  press  0  then  <RET>.’); 

GOTOXY(0, 18) : 

URITE (MESSAGE): 

(«•!-*) 

READLNl TESTNUM) : 

(«SI+«) 

IF  TESTNUM  -  0 
THEN 

BEGIN  (1) 

ESCPROC  TRUE; 

CLOSE (F I LED I REC  TOR Y . LOCK ) ; 

EXIT(LOAOTEST) ; 

END;  (1) 

IF  (TESTNUM  <  0)  OR  (TESTNUM  >  (MAXSUBTESTS+1 ) ) 

THEN 

BEGIN  (2) 

URITELN; 

URITELNC Invalid  test  0  :  ’.TESTNUM); 

SQUAUK;  («  Procedure  located  in  ‘include*  file  T-UTL  e) 

URITELN: 

STALL;  (•  Procedure  located  in  'include*  file  T-UTL  «) 

END  (2) 

ELSE 

BEGIN  (3) 

RECNUM  :•  0; 

Q  :•  0; 

REPEAT 

SEEK (FILEOIRECTORY, RECNUM) ; 

GET (FILEOl RECTORY) ; 

IF  NOT  (FILEOIRECTORY*. UNUSEO)  THEN  0  Q  ♦  1; 

RECNUM  RECNUM  ♦  1; 

UNTIL  (Q  -  TESTNUM)  OR  (RECNUM  >  MAXSUB TESTS) ; 

IF  Q  -  TESTNUM 
THEN 

BEGIN  (4) 

CURR I NDEXRECNUM  RECNUM  -  1; 

OKTEST  TRUE; 

END  (4) 

ELSE 

BEGIN  (5) 

URITELN; 

URITELNl’No  teat  loaded’); 

URITELN; 

STALL;  (•  Procedure  located  in  ’include*  file  T-UTL  ») 
END;  15) 

END;  (3) 

IF  NOT  OKTEST  THEN  BLANKLINES(18,6,18) ; 

UNTIL  OKTEST; 

SEEK (FILEOIRECTORY, CURRINCEXRECNUM) ; 

GET (FILEOIRECTORY); 

DIRECTORY  FILEOIRECTORY*; 

CLOSE  (F I LED I RECTORY , LOCK) ; 

END;  («  Loadtest  *) 


(e  Show  command  level  selections  e) 

(e  This  procedure  is  called  by  Program  STRATEGY  main  routine.  *) 

PROCEDURE  MENU; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY (20, 0) ; 
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IRITEI* STRATEGY  DATABASE  MENU  ’.VERSION): 

GOTOXY (0,4); 

UTITECSelect  one  of  the  following  optione  by  entering  its  number.*); 
G0T0XY(16,8)  | 

URITEC1.  QUIT’): 

GOTOXY  (18,9) : 

IFUTEC2.  INFO  TABLE  MANAGEMENT*): 

GOTOXY  (1G.  10): 

IAITEC3.  PYRAMIOAL  MANAGEMENT ’) : 

GOTOXY  (16, 11 ) : 

URITEC4.  FLEXILEVEL  MANAGEMENT* ) : 

GOTOXY (1G, IS); 

URITECEnter  Choice  #  :  ’): 

END;  (*  menu  *) 

I* - - - - - i 


(«  This  p;  'cedure  is  called  by  Prograa  STRATEGY  eain  routine.  *) 

PROCEDURE  INFOSETUP; 

CONST!*  information  tables  *) 

TABNAME  -  ’CATOATArTABINFO.OATA’ : 

(*  output  file  for  table  listing  *) 

OEFAULTFILE  -  ’ CATDATAs INFO. RSLTS. TEXT* : 

(*  information  table  dimensions  *) 

INFOROU  -  36: 

INFOCOLUMN  -  20: 

TYPE  TABLE  -  ARRAY (1. . INFOCOLUMN, 1. . INFOROU)  OF  INTEGER: 

PARAMETER  -  PACKED  RE CORO 

ITEM  :  INTEGER; 

A,  (•  Discrimination  parameter  •) 

B.  (*  Difficulty  parameter  *) 

C  :  REAL;  (*  Guessing  coefficient  *) 

END: 

SORTTYPE  -  PACKED  RECORD 

ITEM  :  INTEGER: 

IfFOVALUE  :  REAL: 

END; 


VAR  N 

MiNITEMPOOL  :  INTEGER; 

TESTPARAM  t  PACKED  ARRAY  01AXSAHPLES. .MAXI TEMPOOL)  OF  PARAMETER: 
SORTARRAY  :  PACKED  ARRAY  10. .MAX I TEMPOOL)  OF  SORTTYPE; 

COMMAND  :  CHAR; 

INFOTABLE  :  TABLE; 

INFOFILE  i  FILE  OF  TABLE; 

OTtCRINFO  :  BOOLEAN; 

(• .  1 

(*  This  procedure  updates  the  information  table  file  for  subtest.  *) 

(*  This  procedure  is  called  by:  Procedure  *) 

PROCEDURE  UPDATE  I NFOtRECNUM  :  INTEGER); 

(*  Constant  TABNAME  is  defined  in  Procedure  INFOSETUP.  INFOTABLE  and  *) 
(*  INFOFILE  are  declared  in  Procedure  INFOSETUP.  INFOTABLE  is  an  *) 
(*  array  uhose  values  are  determined  in  Procedure  *) 

BEGIN  (*  update  info  *) 

RESET ( I NFOF I LE , TABNAME ) ; 

SEEK(INFOFILE.RECNUM); 

INFOFILE''  INFOTABLE: 

PUT  (INFOFILE) ; 

CLOSE (INFOFILE, LOCK); 

END;  (*  updateinfo  •) 

I* - < 

(*  This  procedure  loads  the  information  table  for  a  subtest.  *) 
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(a  This  procedure  ie  called  by:  Procedure  *) 

PROCEDURE  LOAD  I NFO  (RECNUH  :  INTEGER): 

(*  Constant  TABNAME  is  defined  in  Procedure  INFOSETUP.  INFOTABLE  and  a) 
(*  INFOFILE  are  declared  in  Procedure  INFOSETUP.  INFOTABLE  is  an  *) 
(a  array.  *) 

BEGIN 

RESET (INFOFILE, TABNAME) : 

SEEKUNFOFILE.RECNUM); 

GET  (INFOFILE): 

INFOTABLE  INFOFILE'': 

CLOSE  (INFOFILE. NORMAL): 

ENO:  (a  loadinfo  «) 

(a  - - - *) 

(*  This  procedure  foraats  a  screen  display  to  enter  or  Modify  *) 

(a  information  table  i teas  Manually.  a) 

(a  This  procedure  is  called  by:  Procedure  MOOIFVINFQ  a) 

PROCEDURE  FORMA TSCREEN: 

VAR  I  :  INTEGER; 

BEGIN 

PAGE (OUTPUT): 

G0T0XYU8.1): 

URITELN  Cl* , ’  *:18.*20’): 

G0T0XY(17,2) ; 

URITELNC _ ’): 

GOTOXY (15,3) : 

URITE(’l’): 

FOR  I  :-  1  TO  17  DO 
BEGIN  (1) 

G0T0XYU7.I+2): 

URITELNC  |  ( * ) : 

END;  (II 
GOTOXY (14. 20); 

URI TELNC36  | _ |*»; 

GOTOXY (0.5): 

URI TELNCRou  :  *) ; 

URITELN; 

URITELNC  Co  I  uan  :  *); 

URITELN; 

URITELNC  Value  :  * ) ; 

END;  (*  foraat  screen  e) 

(a - «) 

(«  This  function  is  called  by:  Procedure  Paraa_Array  ») 

FUNCTION  HASH (KEY  :  INTEGER)  :  INTEGER; 

BEGIN 

HASH  (CURRINOEXRECNUM  a  MAXITEMPOOL) 

♦  KEY  ♦  CURRINOEXRECNUM: 

END;  (a  Hash  a) 

Is - a) 

(a  This  procedure  gets  the  a.b  8  c  paraaeters  of  the  desired  eubtest  a) 
(a  froa  the  file  database,  a) 

(a  This  procedure  is  called  by:  Procedure  Neuinfo  a) 

PROCEDURE  P ARAM .ARRAY; 

(a  Constants  DATANAME,  MAXITEMPOOL.  «  MAXSAMPLES  are  global  to  a) 

(a  Prograa  STRATEGY,  a) 

YAR  MINI lEMPOOL, I  :  INTEGER: 

(a  DIRECTORY,  FILEITEMINFO  8  ITEMINFO  are  global  to  a) 

(a  Prograa  STRATEGY.  TESTPARAM  Is  declared  in  Procedure  INFOSETUP  a) 

(a  DIRECTORY  is  set  in  Procedure  LOADTEST.  a) 

BEGIN  (a  paraa  array  a) 

(a  Get  all  data  iteas  for  this  test  a) 

URITELN; 
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UR I TELN(* LOADING  PARAMETERS  FROM  FILE.’); 

RESET (FILEITEMINFQ.OATANAME) j 
MINI TEMPOOL:-  MAXSAMPLES  +  1: 

I : -HASH (MINI TEMPOOL) ; 

SEEK  (FILE  ITEM  I  NFO.Ds 
FOR  I  MINI TEMPOOL  TO  MAXI TEMPOOL  DO 
BEGIN  (1) 

IF  (I  MIC  18)  -  8  T)CN  URITE (*.*); 

(«  Put  item,  a,  b,  c  into  an  array  *) 

GET (FILEITEMINFO) ; 

ITEMINFO  FILEITEMINFO"; 

TESTPARAMt!) .  ITEM  DIRECTORY.  I TEMCOOE  tl) ; 

(s  Need  the  paraeeters  only  for  valid  iteas  *) 
IF  TESTPARAM (II . I TEM  >-  8 
THEN 

BEGIN  (2) 

TESTPARAM til. A  ITEMINFO. A; 

TESTPARAM (II  .B  ITEMINFO. B; 

TESTPARAM  tl)  .C  ITEMINFO. C; 

END:  (2) 

END;  (1) 

CLOSE (FILE ITEMINFO, LOCK); 

END;  (*  Parae_Array  ») 


(«  File  containing  procedure  Verify  «) 

(all  /TFILES/SMGR.DIR/S.VERF.TEXT  e) 

(«  Fite  containing  procedure  Newinfo  a) 
(*«I  /TFILES/SMGR. DIR/S. ND4. TEXT  *) 

(«  File  containing  procedure  Liatinfo  •) 
(ell  /TFILES/SMGR.OIR/S. LIST. TEXT  e) 

(«  File  containing  procedure  Modifyinfo  «) 
(ell  /TFILES/SMGR.OIR/S. HOOF. TEXT  e) 

(e  File  containing  procedure  Findinfo  *) 
(ell  /TFILES/SMGR. DIR/S. FIND. TEXT  e) 

(e  File  containing  procedure  Analyzes) 

(ell  /TFILES/SMGR.OIR/S. ANALYZE. TEXT  *) 


(e  This  procedure  shows  coaeand  level  ee lections  e) 

(e  It  is  called  froa  :  Procedure  Infosetup  e) 

PROCEDURE  INFOMENU; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY  (28,8)  i 

URITECINFOTABLE  MANAGER  fENU’); 

GOTOXY (8, 4); 

URITEfSelect  one  of  the  following  options  by  entering  its  nuaber.’); 
GOTOXY (16. 8); 

URITECl.  QUIT*); 

GOTOXY (16, 9); 

URITEC2.  MAKE  NEU  WO  TABLE*); 

GOTOXY  (16, 18); 

URITEC3.  LIST  INFO  TABLE*); 

GOTOXY (16. 11); 

URITE (’4.  VERIFY  INFO  TABLE* ); 

GOTOXY (16, 12); 

URITEC5.  MOOIFY  INFO  TABLE’); 

GOTOXY (16, 13); 

URITEC6.  FINO  ITEMS  IN  TABLE’); 

G0T0XY(16,14); 

■JRITEC7.  ANALYZE  INFO  TABLE  ROUS’); 

GOTOXY(16,17); 
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URITECEnter  Choice  M  :  ’); 

END:  (*  Infoaenu  *) 

(m . 

BEGIN  («  Infosetup  *) 

REPEAT 

ESCPROC  :•  FALSE: 

0THER1NF0  :-  FALSE; 

1NF0MENU; 

COMMAND  :-  GETCHARt  [’l* . .  ’7* .  ’L’l ,  TRUE,  FALSE,  TRUE) ; 
CASE  COMMAND  OF 

•r  :  : 

•2’  :  NEUINFO; 

'3'  :  USTINFO; 

•4’  :  VERIFY; 

■5’  :  nOOIFYINFO; 

•G*  :  FINOINFO; 

*7*  :  ANALYZE; 

•L’  :  BEGIN  III 

OTHERINFO  :-  TRUE; 

LISTINFO; 

END;  (1) 

END;  (*  caeee  «) 

UNTIL  COMMAND  -  ’l*; 

END;  («  Infosetup  «) 


(«  Main  prograa  •) 

BEGIN 

DIGITS  :-  [,0,..,9*]j 
LETTERS  :-  l’ A’ . .  ’Z’ ,  ’a* . .  ’z’l ; 

CHARACTERS  ICHRI32) .  .CHRI126)  1 ; 

F I LLCHAR (L I NEBUF  (01 , MAXLINEBUF,  ’  ’); 

GETDIRINFO: 

REPEAT 

ESCPROC  :-  FALSE; 

MENU; 

COMMAND  :-  GETCHARC I’l* . . ’4*1 .TRUE, FALSE, TRUE) ; 
CASE  COMMAND  OF 

T  «  ; 

’2*  :  INFOSETUP; 

•3’  :  ; 

'A*  :  l 

END;  (*  cases  •) 

UNTIL  COMMAND  -  T; 

PAGE (OUTPUT); 

GOTOXY (15, 10) ; 

URITECLoading  Catproiect  driver’); 
SETCHAINCCATOATA^ATPROJECT’ ) ; 

ENO.  («  Strategy  e) 
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Textfile  :  SHGR. D1R/S.UTL. TEXT  Volume  :  TFILES 

Codefile  :  S.MGR.COOE  ('Include*  file)  Volume  :  CATOATA 


DEC.  15.  1982 


(*  This  file  contains  the  utility  procedures  used  in  S.MGR  *) 


(*  form  feeds  the  printer  *) 
PROCEDURE  TOPOFFORMs 
BEGIN 

REURI TE (DEST.UNI TNUHPR INTER) ; 
11R1 TE  (DEST.CHR112) )  j 
CLOSE (OEST, LOCK); 

ENO;  («  top  of  form  *) 


(****  rings  the  be  I 
PROCEDURE  SOU AUK; 
BEGIN 

URI TE (CHR(BELL) ) ; 
ENO;  (•  squawk  «) 


(«n»  blank  out  lines  me**) 

PROCEDURE  BLANKL I NES (START. COUNT, ENOCURSOR  :  INTEGER) 
VAR  I  t  INTEGER: 

BEGIN 

GOTOXV (0, START) ; 

FOR  I  1  TO  (COUNT-1)  00 
URITELNC  *  :  39); 

URITEC  '  :39) ; 

GOTOXV (0. ENOCURSOR); 

END:  (*  blank  lines  *) 


(*  read  an  acceptable  character  from  the  keyboard  *) 
FUNCTION  GETCHAR(OKSET  :  SET OF CHAR; 

FLUSHQUEUE. ECHO. BEEP  i  BOOLEAN)  »  CHAR 
VAR  MASK  :  PACKED  ARRAY [0. .0]  OF  CHAR; 

BEGIN 

IF  FLUSHQUEUE  T)€N  UNITCLEARI2);  (*  flush  buffer  *) 
REPEAT 

UNI  TREAD (2,nASK.l); 

IF  BEEP  AND  NOT  (HASK  (0]  IN  OK  SET)  THEN  SQUAIK; 
UNTIL  HASK  10)  IN  OKSET; 

IF  ECHO  AND  (MASK  [0]  IN  [OF  (32) .  .CHR  (126) ) )  THEN 
URI  TE  (HASK  (0) ) ; 

GETCHAR  HASKC01; 

END;  (*  getchar  *) 


(*#**  display  a  message/uait  for  a  keystroke  ***») 
PROCEDURE  STALL; 

VAR  STALLCHAR  :  CHAR; 

BEGIN 

URITECPress  <RET>  to  continue  *); 

STALLCHAR 

GE TCHAR ( ICHR (RE T ) . CHR (ESC ) ) . TRUE .FALSE , TRUE ) ; 
IF  STALLCHAR  -  CHR (ESC)  THEN  EXI T (PROGRAH) ; 

END;  (*  stal I  *) 
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(*  read  in  a  string  and  save  in  a  temporary  buffer  *) 

PROCEDURE  F1LLBUF (CHARCNT  ;  INTEGER; 

OX  SET  :  SETOFCHAR;  ERASE  :  BOOLEAN) t 

VAR  1  :  INTEGER? 

IOCHAR  :  CHAR: 

BEGIN 
I  :«  0; 

REPEAT 

IF  I  >  (CHARCNT-1)  THEN 

IOCHAR  GETCHAR ( (CHR (LARROU) ,CHR (RET) ) , TRUE. TRUE, TRUE) 

FLSF 

BEGIN  111 

IOCHAR  GETCHAR (OXSET  ♦  ICHR(RET).  CHR (LARROU),  CHR (RARROU) ) , 
TRUE,  TRUE,  TRUE): 

IF  IOCHAR  IN  OXSET  THEN 
BEGIN  (2) 

LINEBUF (I ]  IOCHAR; 

I  :•  I  ♦  1; 

END;  (2) 

END;  111 

IF  IOCHAR  -  CHR (LARROU)  THEN 
BEGIN  (3) 

IF  I  -  0  THEN 
SOUAUC 
ELSE 

BEGIN  (4) 

IBI TE  (CHR  (LARROU)); 

I  I  -  1; 

IF  ERASE  THEN 
BEGIN  (S) 

URITEC  *); 

mi  TE  (CHR  (LARROU)  )j 

LINEBUF (II  ’  ’; 

END;  (5) 

END:  (4) 

END  (3) 

ELSE 

IF  IOCHAR  .  CHR (RARROU)  THEN 
BEGIN  (6) 

mi  TE  (LINEBUF  (I) ); 

I  i-  I  ♦  1: 

END;  (6) 

UNTIL  IOCHAR  -  CHR (RET); 

END:  (*  f i I Ibuf  *) 


Ion  open  a  neu  text  file 
PROCEDURE  GETNEUFILE; 

VAR  FILENAME  t  STRING; 
ERRNUM  :  INTEGER; 


(•me  get  a  legal  filenaee  mm) 

FUNCTION  NAME OX  ;  BOOLEAN; 

VAR  I  :  INTEGER; 

BEGIN 

IF  FILENAME  -  "  THEN 
BEGIN  (1) 

FILENAME  OEFAULTFILE; 

GQTOXY (44,0) ; 
mi  TE  (FILENAME): 

END  ill 

ass 

IF  FILENAME  ID  -  CHR (esc)  THEN  EXIT (PROGRAM) ; 

IF  (POST. TEXT’, FILENAME)  <>  (LENGTH (FILENAME)  -  4)) 
OR  (LENGTH (FILENAME)  <  6  )  THEN 
FILENAME  ;-  CONC AT  (FILENAME, ’ .TEXT’ ) ; 

(••I-*) 

RESET (OEST, FILENAME); 

(*$U«) 

IF  I ORE SUL T  -  0  THEN 


283 
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BEGIN  (2) 

URITELN; 

URITELN; 

URITE  (’Destroy  old  *  .FILENAnE,  ’  ?  Press  ”N”  or  ”Y”  ’): 

IF  GETCHARU’y’. ’o'. *Y’,’N’], TRUE.  TRUE. TRUE)  IN  t’Y’.’y’)  THEN 
BEGIN  13) 

CLOSE (DEST, PURGE) 5 
REUR I TE (DEST , F I LENAME ) ; 

NAME OK  TRUE: 

END  (3) 

ELSE 

NAME OK  FALSE; 

END  (2) 

ELSE 

BEGIN  (4) 

(••I-*) 

REUR I TE (DEST , F I LENAOE ) : 

(*$!+*) 

ERRNUT1  I0RESULT; 

IF  IORESULT  <>  8  THEN 
BEGIN  (5) 

URITELN; 

URITELN; 

URITELN  (’Cannot  open  ’. FILENAME,  ’  lo  error  DC.ERRNUPI); 

NAME OK  FALSE; 

END  (5) 

ELSE 

NAME OK  TRUE; 

END;  (4) 

END;  («  naaeok  *) 


BEGIN  («  getneufile  *) 

REPEAT 

PAGE (OUTPUT): 

URITE (’Enter  output  file  name,  then  press  <RET>  ;  ’); 
REAOLN (F I LENAME ) ; 

UNTIL  NAMEOK; 

END 


(«  send  control  characters  to  screen  «) 

PROCEDURE  SCRCONTROL (1 ,  J,  K  :  INTEGER);  (  PASCAL  interface  to  Screen  Coitrol) 
VAR  N:  INTEGER;  (  APPLE  III  Standard  Device  Or i vers) 

G_ARRA Y : PACKED  ARRAY  10. .  31  OF  0..2S5;  I .  Pages  34  to  46. ) 

BEGIN 

G_ARRAY [0] : »  I;  G .ARRAY (1) : -J;  G .ARRAY (21 : -K; 

UNI TURI TE (1 ,G_ARRAY,3. . 12) ; 

END;  (*  scr control  *) 


(*  switch  to  40  coluan  screen  a) 

PROCEDURE  TEXT40HOOE; 

BEGIN 

SCRCONTROL (16,0, 28) ;  (Text  aode  408U,  followed  by  cl  ear screen.) 
END:  (*  text40aode  *) 


(*  switch  to  80  column  screen  *) 

PROCEDURE  TEXT80MOOE; 

BEGIN 

SCRCONTROL (04,0,0) ;  (Restore  Viewport  to  its  original  condition.) 
SCRCONTROL (18,2,28) ; (  Text  Mode  80,  fotloued  by  c learscreen. ) 

END:  (*  text80mode  «) 


(*  turn  on  reverse  video  *) 
PROCEDURE  INVERSE: 
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BEGIN 

SCRCONTROL  (18,0.8)  j 
END:  (*  inverse  *) 


(*  switch  back  to  noma  I  screen  ») 
PROCEDURE  NORMAL, 

3EGIN 

SCRCONTROL(17,0.0>, 

END, 
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Textfile  :  SMGR.D1R/S.NEU. TEXT  Volume  i  TFILES 

Codefile  :  S.MGR.COOE  ('Include'  file)  Volume  :  CATDATA 


(«  File  last  modified  :  Feb  23,  1983 


This  procedure  allows  user  to  make  a  new  infotable  for  a  subtest  already 

in  the  database.  Three  options  are  given: 

1.  Calculate  the  info  values  for  a  single  ability  level.  This  option  will 
calculate  and  print  out  either  to  the  screen  or  the  printer  all  info 
values  for  any  selected  Theta  using  the  a,b,  8  c  parameters  already  in 
the  database. 

2.  Read  info  table  from  a  textfile.  For  this  option,  the  textfile  must 
contain  only  integers.  The  program  reads  an  integer  and  fills  up  the 
infotable  by  filling  in  all  the  columns  in  a  row  first,  then  going  on 
to  the  next  row.  It  will  tell  you  if  the  text  file  contained  the  wrong 
amount  of  numbers  to  fill  the  infotable. 

3.  Calculate  the  infotable  automatically.  This  option  will  read  the  a,b, 

8  c  parameters  from  the  database  for  any  given  test,  and  calculate  the 
entire  set  of  info  values  for  each  T  value.  Then  those  values  are 
sorted  and  the  items  with  the  largest  info  values  are  placed  into  the 
row  in  the  infotable  for  that  T. 


(«  accepts  keyboard  input  to  fill  in  table  «) 
PROCEDURE  NEUINFO; 

VAR  EXTRA, 

UNDER, 

X  Y 

TABVALUE  :  INTEGER: 

DONE  :  BOOLEAN; 


(«  This  procedure  opens  a  new  text  file  *) 

(si  This  procedure  is  called  from:  Procedure  Infotextfile  *) 
PROCEDURE  GETINPUTFILE, 

VAR  FILENAME  :  STRING; 

ERRNUT1  «  INTEGER: 

NAMEOK  :  BOOLEAN; 

BEGIN 

NATE  Ok  ;-  FALSE: 

REPEAT 

WITECEnter  input  filename,  then  press  <RET>  :  ’); 
READLN (FILENAME); 

URITELN; 

IF  FILENAME  (11  -  CW(esc)  TTEN  EXIT  (PROGRAM); 

IF  (POSC. TEXT*. FILENAME)  <>  (LENGTH (FILENAME)  -  4)) 

OR  (LENGTH (F I LENAME )  <  G  )  THEN 
FILENAME  :-  CONCAT (FI LENAME, '.TEXT*); 

(etl-e) 

RESET  (OEST. FILENAME); 

(«•!+*) 

IF  I  ORE  SUL  T  -  0  T)£N 
NAME Ok  ;.  TRUE 
ELSE 
BEGIN 

ERRNUM  :-  I0RESULT; 

URITELNCIO  error  ERRNUM); 

URI TELN; 

END; 

UNTIL  NAME Ok: 

END;  (e  get  input  file  *) 


(s  This  procedure  reads  an  infotable  from  a  textfile  and  checks  to  «) 
(s  see  that  it  has  the  correct  number  of  data  in  it.  *) 

(*  This  procedure  is  called  from:  Procedure  New  info.  *) 


[elil 
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PROCEDURE  INFOTEXTFILEj 
BEGIN 

GETINPUTFILEi 
X  i-  It 
Y  It 
EXTRA  i-  0, 

DONE  FALSEt 
PAGE (OUTPUT) i 
WRITE (’Loading  .’)t 
WHILE  NOT  EOF (OEST)  DO 
BEGIN  (ala) 

WHILE  NOT  EOLN(OEST)  DO 
BEGIN  (*2*> 

REAO(DEST.TABVALUE) t 
IF  NOT  DONE 

THEN  INFOTABLE  CX.Y3  s-  TABVALUE 
ELSE  EXTRA  EXTRA  +  15 
X  X  +  It 
IF  X  >  INFOCOLUHN 
THEN  BEGIN  (a3a) 

IKITE<’.’)| 

y  t-  y  +  it 

X  :•  It 

IF  Y  >  INFOROU  THEN  DONE  TRUE: 

END:  (x3e> 

END:  («2*) 

REAOLN (BEST) t 
ENDt  (ala) 

WRITELN: 

IF  (Y  -  (INFOROU  ♦  D)  AND  (X  -  1)  AND  (EXTRA  -  0) 

THEN  URITELNC Info  table  loaded.  No  errors.') 

ELSE  IF  EXTRA  >  0 

THEN  BEGIN  («4e) 

WRITECInfo  table  loaded, 

EXTRA,'  extra  iteas  in  input  f  i  I e. * ) t 

SQUAWK; 

END  (*4«) 

ELSE  BEGIN  («5e) 

UNDER 

(INFOROU  e  INFOCOLUHN)  -  (KY-1)  e  INFOCOLUHN)  +  (X-l))t 
WRITECInfo  table  loaded,  ', 

UNDER.’  itees  under.  Input  not  complete’ )t 

SQUAWK t 
END]  (*5*> 

CLOSE (OEST, LOCK) t 
WRITELN: 

WITELNt 
STALL; 

END i  (•  Infotextfile  «) 


(a  Bounded  exponential  function  *) 

(*  This  function  is  called  but  Function  Info  e) 
FUNCTION  EXPFI  X  t  REAL  )  t  REAL: 

CONST  XMAX  .  29.0: 

XHIN  .  -87.0| 

VAR  Y  t  REALt 
BEGIN 

IF  X  <  XHIN 
THEN  Y  t.  XHIN 
aSE  IF  X  >  XMAX 

THEN  Y  «-  XMAX 
aSE  Y  X; 

EXPF  t-  EXP (Y) t 
ENDt  (a  Function  Expf  a) 


(a  Calculate  info  value  froa  A.B.C  paraaeters  for  this  Theta  a) 
(a  This  function  is  called  bu:  Procedure  Optiaua  a) 

FUNCTION  IfF0(  T,  A,  B,  C  t  REAL)  t  REALt 
CONST  0  ■  1.7:  (a  Scaling  Factor  a) 
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VAR  DA,  TAP.  Y,  Z,  ZC  :  REAL: 

BEGIN 

DA  0  »  A; 

Y  DA  *  (B  -  T)t 

Z  EXPF(Y); 

ZC  Z  e  Ct 

TMP  DA  *  DA  *  (Z  -  ZC)  /  (1.8  ♦  ZC)» 

INFO  TMP  *  (1  /  ((1.8  ♦  Z)  *  (1.8  *  Z)))t 
END:  («  Function  Infd  *) 

(* - - - - - - *) 

(*  Quicksort  of  infovalues  puts  largest  into  first  array  location  *) 

(«  and  puts  the  rest  into  descending  order  *) 

(«  This  procedure  is  called  by:  Procedure  Optimum  •) 

PROCEDURE  SORT INFOVALUES (LEFT, RIGHT  :  INTEGER): 

VAR  LPTR.RPTR,  (*  Pointers  to  array  locations  *) 

TEMPI TEM  :  INTEGER;  («  Teeporary  during  exchange  *) 

TEMPI NFO.  (*  ’  '  «> 

PARTITION  :  REAL;  (•  Midpoint  of  array  to  which  left  8  right 
values  are  coepared  for  sorting  *) 

BEGIN 

LPTR  LEFT; 

RPTR  RIGHT; 

PARTITION  SORT ARRAY  I  (LEFT  ♦  RIGHT)  OIV  2  ]. INFOVALUE; 

(«  Divide  array  into  tuo  sections;  those  infovalues  greater  than 
the  partition  value,  and  those  lees  than  the  partition  value.  *) 

REPEAT 

UHILE  SORTARRAY [LPTR] . INFOVALUE  >  PARTITION  DO 
LPTR  s-  LPTR  +  1; 

UHILE  PARTITION  >  SORTARRAY  [RPTR]  .  IfFOVALUE  DO 
RPTR  RPTR  -  1; 

IF  LPTR  <-  RPTR 
THEN  BEGIN 

(*  Exchange,  these  are  on  the  urong  sides  of  partition  •) 

TEMP  ITEM  :  -  SORTARRAY  [LPTR] .  I TEM; 

TEMP I NFO  SORTARRAY [LPTR] . INFOVALUE; 

SORTARRAY  [LPTR].  I  TEM  SORTARRAY  [RPTR] .  ITEM; 

SORTARRAY [LPTR]. INFOVALUE  «-  SORTARRAY [RPTR]. INFOVALUE; 
SORTARRAY  [RPTR],  I  TEH  TEMPI  TEH; 

SORTARRAY  [RPTR] .  IfFOVALUE  «-  TEMP  I  NFO; 

LPTR  :•  LPTR  +  1; 

RPTR  t.  RPTR  -  1; 

END; 

UNTIL  LPTR  >  RPTR; 

(*  Recursively  sort  each  section  that  was  partitioned  *) 

IF  LEFT  <  RPTR 

THEN  SORTINFOVALUES (LEFT, RPTR) ; 

IF  LPTR  <  RIGHT 

THEN  SORTINFOVALUES (LPTR, RIGHT); 

END;  (*  Sort infovalues  *) 

(* - *) 

(*  This  procedure  Is  for  debugging  only.  It  prints  out  the  SORTARRAY  *) 

(*  so  that  it  can  be  reviewed  for  accuracy.  It  is  for  ONE  value  of  T.s) 

(«  This  procedure  is  called  by:  Procedure  Optimum  e) 

PROCEDURE  OUTPT INFO (K: INTEGER;  TsREAL;  T I TLE.DESTNAHE: STRING) ; 

CONST  LINESPERPAGE  -  66; 

VAR  J.LINECOUNT  :  INTEGER; 

DEST  :  TEXT; 

BEGIN 

REURI TE (DEST , DESTNAME ) ; 

IF  TITLE  -  ’UNSORTED’ 

THEN  BEGIN 

URITELN(DEST, 

•  UNSORTED  INFOTABLE  FOR  \ DIRECTORY. TESTNAME,’  T-’.T); 
URITELN(OEST, 

’  . - . ’); 

ENO 

ELSE  BEGIN 

WRI  TELN(OEST, 

•  SORTED  INFOTABLE  FOR  ’ .DIRECTORY. TESTNAME, *  T-\T); 
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URITELN (OEST, 


END* 

FOR  J  s-  1  TO  4  00 
URITEIOEST, *  ITEM  INFOVALUE’ ) * 

URITELN (OEST)* 

LINECOUNT  *-  3* 

FOR  J  *-  0  TO  K  DO 
BEGIN 

IF  (J  MOO  4)  -  0 
THEN  BEGIN 

LINECOUNT  :  .LINECOUNT  -i-  1; 

URITELN(OEST) * 

END* 

UR I TE (OEST . SORTARRAY I JI . I  TEH  *  7 . SORTARRAY [ J) . I NFOVALUE  *10*7)* 
END; 

IF  OESTNAHE  -  ’PRINTER*’ 

"HEN  FOR  J  s-  LINECOUNT  TO  LINESPERPAGE  00 
URITELN(OEST) * 

URITELN* 

CLOSE (OEST, LOCK) * 

END;  («  Outptinfo  «) 


■’)* 


(« 


*) 


(*  Optimize  the  info  —  ie.  get  valid  iteea  and  sort  by  infovalue  *) 
(«  Thia  procedure  ie  called  by*  Procedure  Table  e) 

PROCEDURE  OPTlnUHU  s  REAL*  ONE  *  BOOLEAN*  OESTNAHE  s  STRING); 


VAR  I,  *  Loop  counter  *) 

K,  («  I  tee  counter  *) 

HINITEMPOOL  s  INTEGER* 

BEGIN 

HINITEHPOOL  *-  HAXSAHPLES  ♦  1* 

K  *.  0* 

URITELN* 

URITELN  (’COMPUTING  INFO  VALUES  FOR  THETA-  \T)* 

FOR  Is-  HINITEHPOOL  TO  HAXITEHPOOL  DO 

I*  Get  only  valid  iteea,  and  put  into  an  array  uith  infovalues  *) 

IF  TESTPARAHIII .  ITEH  >.  0 
THEN  BEGIN 

URITE  (’ ,  * )  • 

SORTARRAY  IK).  I  TEH  s-  TESTPARAHII) .  ITEM* 

SORTARRAY  OH.  I  NFOVALUE  *-  IfFOI  T,  TESTPARAMII)  .A, 

TESTPARAHtn.B, 
TESTPARAHIII  .C  )* 

K  *-  K  +  1* 

END* 

URITELN* 

K  *-  K  -  1* 

IF  K  <  INFOCOLUH 
THEN  BEGIN 

SQUAUK* 

URITELN* 

URITELN (’NOT  ENOUGH  QUESTIONS  IN  TEST  TO  HAKE  INFOTABLE! ! ’ ) * 
STALL* 

EXIT(NEUINFO) * 

END* 

URITELN* 

URITELN  (’SORT  INC  T)C  INFOTABLE  ’)* 

SORTINFOVALUES(0,K) ; 

IF  ONE 

THEN  OUTPTINFO (K.T, ’SORTED’, OESTNAHE)* 

ENO*  (e  Optieue  *) 


(• 


*) 


(*  Create  infotable  «) 

(*  This  procedure  is  called  by*  Procedure  Neuinfo  *) 

PROCEDURE  TABLE* 

(«  The  constants  THIN  (Lowest  value  of  ability  level)  and  DT  (Increment 
value)  are  global  to  program  S.HGR  *) 


VAR  I,J  *  INTEGER* 


(«  Loop  counters  «) 


289 


Apr  4  10:44  1983  SMGR. DIR/S. NEU. TEXT  (  Make  neu  info  table)  Page  5 


T  :  REAL:  (*  Theta  —  ability  level  e) 

BEGIN 

T  THIN; 

FOR  J  1  TO  INFOROU  DO  (*  number  of  roue  in  infotabie  *) 
BEGIN 

OPT IMUMIT, FALSE,  ” ) ; 

(«  after  sorted,  put  into  infotabie  *) 

FOR  I  i-  1  TO  INFOCOLUMN  DO 

INFOTABLEII,  JI  «-  SORTARRAY  tl-ll .  ITEM; 

T  T  +  OT: 

EMI; 

END:  (e  Table  *) 


(« - - - - - 

(*  This  allous  you  to  enter  froe  the  terminal  a  single  value  *) 

(e  for  T  and  calculate  and  print  out  all  infovalues  for  that  T  *) 

(«  This  procedure  is  called  froe;  New  info  «) 

PROCEDURE  ONETHETA; 

VAR  T  i  REAL; 

MORE THETAS  :  BOOLEAN; 

BEGIN 

MORE  THETAS  TRUE; 

REPEAT 

URITELN; 

MITELN CENTER  ABILITY  LEVEL  (real  nueber  between  -2.5  and  +2.5)’); 
URITECTKETA  s  *  1  j 
REAOLN(T)  j 

MITELN;URITELN(’UHERE  00  YOU  UANT  T)C  OUTPUT?’); 

URITELN ('  1)  SCREEN’ ); 

IRITELNT  2)  PRINTER’ ); 

IF  GETCHARU’l’, ’2-]. TRUE. FALSE. TRUE)  -  T 
THEN  OPT IMUM(T, TRUE, ‘CONSOLE: *) 

ELSE  OPTIMUM (T, TRUE. ‘PRINTER:  ’ ) ; 

MI  TELN;  URITELN  ('UANT  TO  DO  ANOTHER  ONE?’); 

IF  GETCHAR(  £’ Y* ,  *y* .  ’N* ,  'n’l ,  TRUE,  FALSE,  TRUE)  IN  I’N’.’n’l 
THEN  MORETfCTAS  FALSE; 

UNTIL  NOT  MORE THETAS; 

EM):  (e  Onetheta  s) 

(s - - - 

(«  Thie  procedure  updatee  the  info  table  and  then  branches  to  the  e) 

(*  ‘Verify*  option  to  update  the  second  info  table.  •) 

PROCEDURE  UPDATE; 

BEGIN 

UPOATEINFOFILE  (CURRINDEXRECNUM) ; 

PAGE  (OUTPUT); 

OCCKTAB  (CURRINDEXRECNUM) ; 

END; 


BEGIN  («  neu  info  table  e) 

LOADTESTCMake  neu  info  table  for  uhich  test?  :  ’); 

IF  ESCPROC  THEN 
EXITHCUINFO); 

PAGE (OUTPUT); 

GOTOXY (15,0) ; 

UR  I  TEC  MAKE  INFOTABLE  FOR  :  ’ .OIRECTORY.  TESTNAME) ; 

GOTOXY (0.4); 

URITECSelect  one  of  the  follouing  options  by  entering  its  number.’); 
GOTOXY (12. 8); 

URITEC1.  Quit’); 

GOTOXY (12, 9); 

UR1TEC2.  Infotabie  for  a  single  ability  level  Theta’); 

G0T0XY(12, 10) ; 

UR1TEC3.  Read  infotabie  values  from  a  textfile’); 

GOTOXY (12, 11); 

URITEC4.  Calculate  all  infotabie  values  from  internal  parameters’); 
GOTOXY (12. IS); 

URITE (’Enter  Choice  U  :  ’); 

CASE  GETCHARU’l’. ’2’. ’3’,’4’J, TRUE, FALSE, TRUE)  OF 
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*l*i  » 

•2*:  BEGIN 

PAGE (OUTPUT), 
PARAM.ARRAY, 
PAGE (OUTPUT), 
ONETHETA, 

END, 

*3*:  BEGIN 

PAGE (OUTPUT), 
INFOTEXTFILE, 
UPOATE, 

END, 

'4* :  BEGIN 

PAGE (OUTPUT), 
PARAMJtfRAY, 
PAGE (OUTPUT), 
TABLE: 

UPOATE, 

END, 

END,  («  Cases  *) 

END,  (a  nau  info  «) 
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I  TEMs  —I  NFOTABLE  (K .  OFFSET! ; 

I INOEXi-I t 
KINDEX:-*; 

END; 

END 

END: 

END; 

END; 

END; 

IF  J  MOO  3  -  0  THEN  URITELN; 

END; 

URITELN; 

URITELN: 

URITELN ('There  are  '.ERRORCNT,'  errore  in  the  info  tablee.’); 

URITELN; 

IF  ERRORCNT  >  0  THEN 
BEGIN 

URITECList  the  errore?  Preee  "Y"  or  ”N”  :  '); 

IF  GETCHARU’y’.’n’.’Y’.’N’l  .  true,  fal  ae.  true)  IN  t’Y’.’y’]  THEN 
BEGIN 

PAGE (OUTPUT) ; 

FOR  I  s .  1  TO  ERRORCNT  DO 
BEGIN 

UITH  ERRLIST (11  DO 
BEGIN 

URITELN (’Error!  Infotable  entry  '.CODE. 

'  at  rou  *,R,*  , co I uan  ’,C,*  not  found  in  directory.’); 

END; 

IF  l  MOO  20  -  0  THEN 
BEGIN 
URITELN: 

STALL; 

URITELN; 

IRITELN; 

END; 

END; 

END 

ELSE 

URITELN: 

END; 

IF  COUNT  »  0  THEN 
BEGIN 

LFI TELNC DUPLICATION  ERRORS  EXIST  IN  THE  SUBTEST  INFOTABLE* ); 

IOITELN; 

FOR  K:-l  TO  COUNT  DO 
BEGIN 

UITH  DUPLICtK!  DO 

URITELN(*  ITEM  ’.ITEH,’  DUPLICATED  IN  ROU  \RU,’  COLUTWS  ’.IINDEX.’  ’.KINDEX); 

END: 

END; 

STALL; 

UPOATEINFOdNFOREC  ♦  NAXSUB TESTS  +  1); 

END;  («  check tab  e) 


(«  This  procedure  etorea  the  index  of  the  directory  of  the  question  rather  «) 

(e  than  the  question  code.  This  ulll  cut  doun  search  tiae  for  itee  in  direc-  «) 

(«  tory  when  referencing  infotable.  It  Is  also  a  verification  that  all  itees  *) 

(e  in  the  info  table  are  also  in  the  subtest  directories.  e) 

(«  This  procedure  is  called  froe  :  Procedure  Infosetup  *) 

PROCEDURE  VERIFY; 

BEGIN 

LOAOTEST (’Verify  infotable  for  uhich  subtest?  :  ’); 

IF  ESCPROC  THEN 
EXIT (VERIFY); 

CHECKTAB (CURRINDEXRECNUM) ; 

END;  (*  Ver i fy  *) 
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(«  *) 

(«  Textfile  :  SMGR.OIR/S.MOOF. TEXT  Voluee  :  TFILES  *) 

(*  Codefile  :  S. MGR. TEXT  (‘Include’  file)  Voluee  :  CATDATA  *! 

(«  *) 


(*  File  last  Modified  :  Feb  23,  1983  NPROC  *) 


(«  allows  Modifications  to  inforaation  table  e) 
PROCEDURE  MOOIFYINFO: 

VAR  V  V 

TAB VALUE  :  INTEGER; 

MOOCHAR  :  CHAR; 


BEGIN  (*  Modify  info  *) 

LOAOTEST (‘Modi fy  infotable  for  which  test?  :  ’); 

IF  ESCPROC  THEN 
EXI T (MOOIFYINFO) ; 

LOAOINFO(CURRINOEXRECNUM) ; 

FORMA TSCREEN; 

GOTOXY (0,0) ; 

URI  TEC  Test  ;  ‘  .DIRECTORY.  TESTNAME) ; 

Y  1; 

X  1; 

GOTOXY (50. 2); 

URITE (’ INSTRUCTIONS’ ) ; 

GOTOXY (47.4); 

URITECUse  — >  and  < —  to  Move'); 

GOTOXY (47, 5); 

URITE (’horizontal ly  in  infotable'); 

GOTOXY (47. 7); 

URITECUse  <up  arrou>  and  '); 

GOTOXY (47. 8); 

URITE (’<down  arrow>  to  Move’); 

GOTOXY (47. 9); 

URITECvertical  ly  in  infotable.’); 

GOTOXY (47. 11); 

URITECTo  change  a  value  in  the'); 

GOTOXY (47, 12); 

URITECtable,  go  to  the  location’); 

GOTOXY (47. 13); 

URITE  (’you  wish  to  change.  Press  "M",'}; 

GOTOXY (47, 14); 

URITECenter  the  new  value,  then’); 

GOTOXY (47, 15); 

URITE  (’press  <RET>.*); 

GOTOXY (47. 17); 

IRITECPress  <ESC>  to  quit  without’); 

GOTOXY (47. 18); 

URITECupdating.’); 

GOTOXY (47, 20); 

URITECPress  <CNTRL-C>  to  quit  and'); 

GOTOXY (47, 21); 

URITE(’update’); 

REPEAT 

GOTOXY (6. 5); 

URI TE(Y,  ’  ’); 

GOTOXY (9, 7); 

URI TE  (X, ’  ’); 

GOTOXY (10, 9); 

URI TE  C  ’); 

GOTOXY (10. 9); 

UR  I TE ( INFOTABLE (X.YI); 

GOTOXY (X+17, ( ( (Y-l )  DIV  2)  +  3)); 

MOOCHAR  GETCHARt  (CHR(LARROU)  .CHR(RARROU)  ,CHR(UP)  .CHR(DOUN) , 

CHR (ESC). CHR(ETX),’M’,’m’ I, TRUE, FALSE. TRUE); 

CASE  ORO  (MOOCHAR)  OF 
LARROU  :  IF  X  -  1  THEN 


AD-A141  569  MICROCOMPUTER  NETWORK  FOR  COMPUTERIZED  ADAPTIVE  TESTING 
(CRT) :  PROGRAM  LI..  <U>  NAVV  PERSONNEL  RESEARCH  AND 
DEVELOPMENT  CENTER  SAN  DIEGO  CA  B  9UAN  ET  AL.  MAR  B4 
UNCLASSIFIED  NPRDC-TR-84-3Z-SUPPL  F/O  9/2 


4/5 

NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURtAU  OF  STANDARDS  I%<  A 


Apr  4  10:44  1983  SMGR.OIR/S.MOOF. TEXT  (  Modify  info  table)  Page  2 


IF  V  >  1  THEN 
BEGIN 

Y  Y  -  lj 

X  INFOCOLUMN: 

END 
ELSE 
SQUAWK i 
END 
ELSE 

X  i-  X  -  1; 

R ARROW  :  IF  X  -  INFOCOLUMN  THEN 
BEGIN 

IF  Y  <  INFOROU  THEN 
BEGIN 

Y  Y  +  It 
X  i.  1: 

END 
ELSE 
SOU AUK: 

END 

ELSE 

X  X  ♦  1; 

UP  :  IF  Y  -  1  THEN 

SQUAUK 
ELSE 

Y  Y  -  1: 

DOM  :  IF  Y  -  INFOROU  THEN 

SQUAUK 
ELSE 

Y  Y  +  1; 

ESC  :  EXIT(MOOIFYINFO) ; 

ETX  :  j 

END;  (e  case  •) 

IF  MOOCHAR  IN  t,M,,‘»,l  THEN 
BEGIN 

GOTOXY(10.9)j 
URITEC  *); 

GOTQXYU0.9): 

REAOLNf  TAB  VALUE): 

I  NOTABLE  CX.Y]  TABVALUEj 
END; 

UNTIL  ORO (MOOCHAR)  -  ETX; 
UPOATEIfFOFILE  (CURRINOEXRECNUM) ; 
CHECK TAB (OJRRINDEXRECNUM) ; 

END;  («  Modify  info  *) 
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Tex t f i I e  :  STIGR.OIR/S.LIST.  TEXT  Voluee  :  TFILES 

Codefile  <  S.HGR.COOE  ('Include*  file)  Voluee  :  CATDATA 


DEC.  14.  1982 


(*  lists  the  inforeation  table  to  file  or  printer  e) 
PROCEDURE  LI ST  INFO; 

VAR  I.J  s  INTEGER: 

PRINTER. 

TOFILE  :  BOOLEAN; 

SELECT  ;  CHAR; 


PROCEDURE  LISTPRINTER; 

BEGIN 

PAGE (OUTPUT): 

URITECUriting  .'); 

URITELN (OEST,  Teat  :  ' .DIRECTORY. TESTNAME) ; 
URITELN (OEST) ; 

J  :  -  1; 

UR1TE(0EST, ’  '); 

FOR  I  1  TO  10  DO  URITE1DEST.I  :  7); 
URITELN(OEST); 

URITELN(OEST. 


REPEAT 

URITEC. '); 

URITE(DEST,J:2,’  |  ’); 

FOR  I  1  TO  10  DO 
URITE  (OEST,  INFOTABLE  (I .  J]  :  7); 
URITELN(OEST) ; 

J  i*  J  +  1; 

UNTIL  J  >  INFOROU; 

URITELN (OEST); 

URITELN(DEST) ; 

URITELN(OEST); 

URITELN(DEST) ; 

J  j-  1; 

URITE  (OEST/  '): 

FOR  I  11  TO  INFOCOLUMN  00  URITE(OEST.I  :  7); 
URITELN(OEST); 

URITELN (OEST. 


REPEAT 

URITEC/); 

URITE  (OEST.  J;  2/  |  ’); 

FOR  I  s-  11  TO  INFXOLUnN  DO 
URITE  (OEST.  INFOTABLE  (I.J)  ;  7); 
URITELN(OEST); 

J  j-  J  ♦  1; 

UNTIL  J  >  INFOROU; 

URITELN(DEST) ; 

CLOSE (OEST, LOCK); 

END;  (*  listpr inter  «) 


(*  I i at  to  console  *) 
PROCEDURE  LISTCONSOLE; 


PROCEDURE  LI; 

BEGIN 

PAGE (OUTPUT); 
URI  TELNCTeat  s 
UP1TELN; 

URITEC  '): 


' .DIRECTORY. TESTNAME) 
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IRITELN; 

EM): 

GOTOXY (0.23); 

STALL: 

EM):  (*  I  ietconeole  *) 


(*  writes  info  tables  to  individual  files  for  floppy  version  of  test  *) 
<«  adei n i strat  i  on.  Keeps  foraat  ease.  «) 

PROCEDURE  UR1TET0FILE; 

VAR  FILENAME  :  STRING; 

SHALL INFO  :  FILE  OF  TABLE; 

BEGIN 

PAGE (OUTPUT); 

URlTECEnter  two  character  code  for  subtest,  then  press  <RET>  :  *); 
REAOLN (FILENAME); 

IF  FILENAME  -  ”  T)€N 
EXIT (URI TETOFILE) 

ELSE 

IF  FILENAME  (11  -  CM!  (esc)  THEN 
EXIT  (UR1TET0F1LE) ; 

FILENAME  :-  CONCAT (FILENAME. ’.IMO.DATA’); 

REUR I TE  (SMALL  I NFO ,  F I LENATE ) ; 

LOAD  I  MO  (CURRINOEXRECNUn) ; 

SMALL I NFO"  :-  I  NFO TABLE; 

SEEK  (SMALL  I  NFO,  0) ; 

PUT (SHALL I NFO); 

LOAOINFO  (CURRINOEXRECNUH  +  MAXSUB TESTS  ♦  1); 

SHALL l NFO"  ;-  I  NFO TABLE; 

SEEK(SHALLINFO.l); 

PUT (SHALL INFO); 
aOSE  (SMALL  I  NFO.  LOCK); 

END;  (*  write  to  file  *) 


BEGIN  (*  Lietinfo  «) 

PAGE (OUTPUT); 

GOTOXY (20.0); 

URI  TE  (‘SELECT  OUTPUT  MMJ’); 

GOTOXY (0, A); 

URITE(’Select  one  of  the  following  options  bg  entering  Its  nueber.*); 
GOTOXY (16. 8); 

URITEC1.  QUIT*); 

GOTOXY (16, 9); 

URITEC2.  LIST  I  MO  TABLE  TO  SCREEN* ); 

GOTOXY (16, 10); 

URITEC3.  LIST  I  MO  TABLE  TO  PRINTER’); 

GOTOXY (16, 11); 

URITE(*4.  LIST  IMOTABLE  TO  FLOPPY  DATA  FILE’); 

GOTOXY (16. 12); 

URITEC5.  LIST  IMOTABLE  TO  TEXT  FILE*); 

GOTOXY (16, 14) ; 

URlTECEnter  choice  U  ;  ’); 

PRINTER  FALSE; 

T0F1LE  t-  FALSE; 

SELECT  t-  GETCHAR(l’l*..*S’l. TRUE, FALSE. TRUE); 

CASE  SELECT  OF 

*1*  :  EXIT(LISTIMO); 

*2*  ;  ; 

*3*  ;  BEGIN 

PRINTER  TRUE; 

REURITE (OEST. ’PRINTER: ’ ) ; 

END; 

*4*  :  TOFILE  TRUE; 

’S’  :  BEGIN 

GETNEUFILE; 

PRINTER  TRUE; 
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END; 

END; 

LOADTESTCLiet  infotable  for  uhich  subtest?  t  ’); 
IF  ESCPROC  THEN 
EXIT(LISTINFO); 

IF  TOFILE  THEN 
BEGIN 

URITETOFILE; 

EXIT (LISTINFO) ; 

END; 

IF  OTHER INFO  THEN 

LOAOINFOICURRINDEXRECNUn  +  HAXSUBTESTS  +  1) 

ELSE 

LOAOINFO (CURRINDEXRECNUn) ; 

IF  PRINTER  THEN 
LISTPPINTER 
ELSE 

LISTCONSOLE; 

END;  (*  I iat  info  *) 
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Textfile  :  SMGR. DIR/S. FIND. TEXT  Volume  :  TFILES 

Codefile  :  S.fIGR.COOE  ('Include*  file)  Volume  :  CATOATA 


DEC.  14.  1982 


(a  This  procedure  allows  you  to  exasine  automatical ly  the  infotable  for  a) 
(«  a  specific  item  to  sea  if  it  is  ever  called.  Or,  it  will  print  out  *) 
(*  all  of  the  i teas  that  are  never  called.  *) 

(a  This  procedure  is  called  by:  Procedure  «) 

PROCEDURE  FIND INFO: 


PROCEDURE  FIfOENU; 

BEGIN 

PAGE (OUTPUT) ; 

GOTOXY(20,0>: 

URITE('aenu’): 

GOTOXY (0,4) ; 

URITE CSe lect  one  of  the  following  options  by  entering  its  number:'): 
GOTOXY (14, 8): 

URITE  Cl.  QUIT'): 

GOTOXY (14,9); 

UTITEC2.  Find  a  single  itea  in  infotable’); 

GOTOXY (14. 10); 

URITEC3.  List  to  screen  all  occurrences  of  an  itea’); 

G0T0XY(14,11); 

URITEC4.  List  to  printer  all  occurrences  of  an  itea’); 

GOTOXY (14. 12); 

URITEC5.  List  to  screen  all  i  teas  not  used’); 

GOTOXY (14. 13); 

URITEC6.  List  to  printer  all  i  teas  not  used’); 

GOTOXY (14. 17); 

URITE ('Enter  Choice  H  :  '); 

END;  («  Findaenu  «) 


(«  This  procedure  will  find  a  single  itea  if  it  is  in  the  infotable.  a) 
(a  This  procedure  is  called  from:  Procedure  Findinfo  a) 

PROCEDURE  FINDITEM(OESTNAnE:STRING) ; 

VAR  N,X, Y. ITEMNUM  :  INTEGER: 

MORE I  TENS. FOUND  :  BOOLEAN; 

OEST  :  TEXT; 


PROCEDURE  I TErFOUND (VAR  N,X,Y  :  INTEGER;  DESTNAME  :  STRING); 
BEGIN 

IF  OESTNATE  -  *N0U)€RE' 

THEN  BEGIN  (ala) 

UTITELN; 

IWTELNC  ITEfl  :  \|TEnNUrt,’ 

•ROU  :  ’.X,'  ’ , 'COLUMN  :  ’,Y); 

miTELN;URITELN(’Oo  you  want  the  next  location?’) 
IF  GETCHARtt’Y'.’N’.  V.’n'),  TRUE,  FALSE,  TRUE) 

IN  C'N’.'n']  THEN  BEGIN  (a2a) 

X  :-  INFOROU; 

Y  :-  INF0C0LUT1N; 

END;  (a2a> 

EM3  (ala) 

ELSE  BEGIN  (a3a) 

IF  (N  MOO  G)  -  0 
THEN  Lffll  TELN  (OEST) ; 

N  :-  N+l ; 

URITE(0EST,X:3, Y;4, ’  '); 

END;  (a3a) 

END:  (a  I teafound  a) 
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<* .  *> 

BEGIN  (e  Finditee  *) 

REPEAT 

PAGE (OUTPUT) , 

URITECItee  number  uou  Mi  ah  to  find  t  ’)j 

REAOLN  ( I  TEMNUM)  j 

URITELN; 

IF  NOT  (DESTNANE  -  ’N0UHERE’) 

THEN  BEGIN 

REWRITE (DEST, DESTNANE) , 

UR I TELN (OEST ) ; UR I TELN (OEST ) i UR! TELN (OEST ) , 

UR I TELN (OEST , *  SUBTEST  ,  * .DIRECTORY. TESTNAME) , 

URITELN1DEST, ’Locations  in  infotable  of  item  t  I TEMNUM) , 

URI TELN (OEST) j 
FOR  N  i-  1  TO  6  DO 

URITE(D£ST,  ’ROU* , *  COL  ’), 

N  t-  0t 
END; 

Y«-l, 

UHILE  Y  <-  INFOCOLUMN  00 
BEGIN  (ele) 

X  1, 

UHILE  X  <-  INFOROU  00 
BEGIN  («2«) 

IF  1  TEMNUM  -  INFOTABLE  IY. XI 
THEN  BEGIN  (*3e) 

FOUND  TRUEs 
ITEMFOUNOiN.X.Y, DESTNANE), 

END  (*3«) 

ELSE  FOUND  FALSE i 
X  t-  X+l ; 

END i  (*2e) 

Y  i-  Y+l, 

END?  (el*) 

IF  NOT  (DESTNANE  -  ’NOUHERE*) 

TIEN  BEGIN 

WI  TELN  (OEST), 

CLOSE (OEST, NORMAL) , 

END, 

IF  NOT  FOUND  THEN  URITELNCNo  eore  locations  of  item  ’ ,  ITEMNUM) , 

U)  I TELN; UR I TELN (’Do  uou  uant  to  find  a  different  I  tee?’), 

IF  GETCHAR ( I’ Y’.’y’.N’.’n’l, TRUE, FALSE, TRUE)  IN  CY’.’y’) 

TEEN  MOREITEMS  :•  TRUE 
ELSE  MOREITEMS  FALSE, 

UNTIL  NOT  MOREITEMS, 

END,  (*  Findi tee  e) 

(* - *) 

PROCEDURE  FIMXJNUSEO (DESTNANE  i  STRING), 

(*  The  constants  MAXITEMPOOL  and  MAXSAMPLES  are  global  to  Prograe 
Strategy.  *) 

TYPE  ARRAY? YPE  -  PACKED  ARRAY  (0. .MAXI TETPOOL)  OF  INTEGER, 

VAR  I.J.K.NUMITEMS.MINITEMPOOL  ,  INTEGER, 

NOTFOUND  ,  ARRAYTYPE, 

SORTARRAY  ,  ARRAYTYPE, 

FOUNOARRAY  ,  ARRAYTYPE, 

OEST  ,  TEXT, 

(* .  *) 

(s  This  procedure  doss  a  quicksort  of  the  SORTARRAY  uhich  contains  *) 

(s  the  valid  itea  numbers  for  this  subtest.  The  array  uas  filled  *) 

(*  in  Procedure  GETITEMS.  It  is  a  recursive  procedure.  *) 

(*  This  procedure  is  called  by:  Procedure  Getitees.  *) 

PROCEDURE  SORTITEMS (LEFT, RIGHT  :  INTEGER), 

VAR  LPTR.RPTR,  (*  Pointers  to  array  locations  *) 

TEMP  ,  INTEGER,  (*  Temporary  during  exchange  *) 

PARTITION  ,  REAL,  (*  Midpoint  of  array  to  uhich  left  8  right 

values  are  compared  for  sorting  *) 

BEGIN 


301 


Dec  20  16:04  1982  SMGR.0IR/S.F1N0. TEXT  <  Queries  into  info  table)  Page  3 


LPTR  LEFT; 

RPTR  RIGHT: 

PARTITION  SORT ARRAY!  (LEFT  +  RIGHT)  D1V  2  1: 

(«  Divide  array  into  two  eections:  those  i tea  nuebera  greater  than 
the  partition  value,  and  those  less  than  the  partition  value,  *) 
REPEAT 

UHILE  SORTARRAY (LPTR)  <  PARTITION  DO 
LPTR  LPTR  +  1: 

UHILE  PARTITION  <  SORTARRAY CRPTRI  DO 
RPTR  :•  RPTR  -  1: 

IF  LPTR  <-  RPTR 
THEN  BEGIN 


(*  Exchange,  these  are  on  the  wrong  sides  of  partition  *) 
TEMP  :  -  SORTARRAY  [LPTR] ; 

SORTARRAY  tLPTR]  SORTARRAY  [RPTR] : 

SORTARRAY  [RPTR]  TEMP: 

LPTR  LPTR  +  1; 

RPTR  RPTR  -  1; 

ETC; 

UNTIL  LPTR  >  RPTR; 

(a  Recursively  sort  each  section  that  uas  partitioned  «) 

IF  LEFT  <  RPTR 
T)€N  SORTITEMS(LFFT.RPTR): 

IF  LPTR  <  RIGHT 
THEN  SORTITEMS (LPTR, RIGHT) t 
END:  («  Sortiteas  e) 


(* 


(*  This  procedure  gate  tha  i tea  nuabere  froa  the  file.  They  are  in  a 
(*  the  file’s  window  variable  DIRECTORY  (global  to  Prograa  STRATEGY)  « 
(*  which  uas  initialized  in  Procedure  LOAOTEST.  Since  iteae  in  that  * 
(a  file  of  value  -1  indicate  a  blank  record,  only  the  iteas  greater  a 
(a  than  -1  are  loaded  into  an  array  to  be  ported.  a 

(a  This  procedure  is  called  by:  Procedure  FINOUNUSED.  ai 

PROCEDURE  GETI TEMS(VAR  NUN! TENS  :  INTEGER): 

VAR  I.MINITEMPOOL  :  INTEGER: 

BEGIN 

PAGE (OUTPUT):  (a  Utility  procedure  in  file:  T-UTL.TEXT  a) 

URITELNC  Get  ting  the  iteas  froa  file'): 

MINITEMPOOL  :-  MAX SAMPLES  ♦  1: 

NUMITEMS:-  0: 

FOR  I  HINITEHPOOL  TO  HAXITEMPOOL  DO 
IF  DIRECTORY.  I TEMCOOE  [II  >-  0 
THEN  BEGIN  (ala) 

SORTARRAY (NUMI TEMSJ  :-  DIRECTORY.  I TEMCOOEU) : 

NUMITEMS  NUMITEMS  +  1: 

END:  (*1*> 

URITELNCNuaber  of  iteas  in  file  t  ’.NUMITEMS): 

URITELN; 

IF  NUMITEMS  >  0 
THEN  NUMITEMS  :-  NUMITEMS  -  1 
ELSE  BEGIN 

WITELN(OEST); 

HI  I TELN (DEST , ’ There  are  no  iteas  in  ’ .DIRECTORY. TESTNAME) : 
EXIT (FINOUNUSED): 

END: 

IF  NUMITEMS  >  0  THEN  begin 

URITELN (’Sorting  iteas...’); 

SORTITEMS(0, NUMITEMS); 
end; 

END;  (a  Get iteas  a) 


(a 


FUNCTION  INTABLEUTEM  :  INTEGER)  :  BOOLEAN; 

(a  The  constants  INFOROU  and  INFOCOLUMN  are  defined  in  Procedure  a) 
(a  INFOSETUP.  a) 

VAR  ROU.COL  :  INTEGER; 

FOUND  :  BOOLEAN: 

BEGIN 
ROU  1; 

FOUND  FALSE: 


& 
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REPEAT 
COL  It 
REPEAT 

IF  1TEH  -  INFOTABLE (COL,  ROU] 

THEN  FOUND  t-  TRUE 
ELSE  COL  COL  ♦  It 
UNTIL  FOUND  OR  (COL  >  INFOCOLUNN); 
ROU  t-  ROM  ♦  It 

UNTIL  FOUND  OR  (ROU  >  INFOROU); 
INTABLE  t-  FOUND; 

END;  («  Intable  •) 


(e 


«) 


(e  Count  the  I  tees  aa  you  get  8  sort  thee  «) 


BEGIN  (e  Findunused  *) 

PAGE (OUTPUT) t 
RE UR I TE (OEST.OESTNANE) t 
GET I  TENS (NUN I  TENS) t 
J  01  K  t-  0; 

LOADINFQ(CURRINOEXRECNUN) ;  (*  Loads  the  infotable  froe  the  file  into  *) 

(*  the  array  variable  INFOTABLE  as  defined  in  Procedure  INFOSETUP  «) 
URITELNt 

URITELNCBe  patient,  I  have  to  coepare  each  of  these  ’ ,NUNI TENS  +  1, 

*  i tees  to  the  infotable.*); 

FOR  I  t-  0  TO  NUNJTEMS  DO 
IF  INTABLE  (SORT  ARRAY  ID) 

THEN  BEGIN  (*  Put  i tees  found  in  infotable  into  one  array  *) 

IRITEC.*); 

FOUNDARRAY [J]  t-  SORTARRAYtU  ; 

J  ;•  J  ♦  1; 

END 

ELSE  BEGIN  («  Put  itees  not  found  into  another  array  «) 

URJTEf  .  * ) ; 

NOTFOUND  (K)  SORT  ARRAY  Ill ; 

K  ;•  K  t  It 
END  i 

URITELN(OEST)  ;WU  TELN  (OEST)  t 
IF  J  >  0 
THEN  BEGIN 

J  t»  J  -  It 

URI TELN (OEST, ’List  of  itees  found  in  infotable  for  i  ’, 

DIRECTORY.  TESTNAfC); 

FOR  I  i-  0  TO  J  00 
BEGIN 

IF  (I  NOD  10)  .  0  THEN  1FI  TELN  (DEST) ; 

URI TE  (DEST, FOUNDARRAY  III ; 7) ; 

END; 

END 

ELSE  1011  TELN  (OEST, 'There  are  no  iteee  in  the  infotable  for  t  *, 

DIRECTORY. TESTNANE) ; 

URI TELN (BEST) ; URI TELN (DEST) ; 

IF  K  >  0 
THEN  BEGIN 

K  i-  K  -  It 

UR1TELN(0EST, 'List  of  items  not  used  in  t 

DIRECTORY. TESTNANE); 

FOR  1  i-  0  TO  K  DO 
BEGIN 

IF  (I  MOO  10)  -  0  THEN  URI TELN (OEST); 

URI TE (DEST, NOTFOUND ( I ) ; 7) ; 

END; 

END 

ELSE  URI TELN (OEST, *A1 I  itees  are  used  in  ;  * .DIRECTORY. TESTNANE) ; 

URI TELN (DEST) ;URI TELN (OEST) ; 

CLOSE (DEST, NORMAL) ; 

IF  (OESTNANE  -  'CONSOLE;*)  THEN  STALL; 

ENO;  («  Findunused  *) 


(* 


*) 


BEGIN  («  Findinfo  e) 

LOAOTEST ( ’ F i nd  Itees  for  which  eubtest?  t’)t 
IF  ESCPROC  THEN  EXI T (FINDINFO) ; 
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PAGE  (OUTPUT): 

LOAD  I NFO  (CURR I  NOEXRECNUfl) ; 

FINOOENU: 

CASE  GETCHARU’l’.. ’S’), TRUE. FALSE. TRUE)  OF 

•r  :  ; 

’2*  :  F I  NO  I TEM  ( ’  NOUFERE  ’ ) : 

*3’  :  FI  NO I  TEH (’CONSOLE:  ’ ) : 

*4*  :  FI  NO  ITEM (’PR  INTER: * ) : 

•5*  :  F I NDUNUSED ( *  CONSOLE : ' ) : 

•6*  :  FI NDUNUSED (’PRINTER:*); 

END;  («  cases  *) 

END;  (*  Find  info  *) 
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Textfile  :  SUGR. DIR/S. ANALYZE. TEXT  Volume  :  TFILES 

Codefile  :  S. NCR. CODE  (’Include*  file)  Voluae  :  CATDATA 


DEC.  21.  1982 


This  procedure  allous  a  user  to  examine  each  rou  of  the  info  table.  A 
subtest  is  selected,  and  then  the  destination  of  the  output  is  entered; 
either  the  console,  a  printer,  or  a  file.  The  rou  being  analyzed  is 
displayed,  followed  by  a  table  uith  the  fol louing  entries:  the  column 
number,  the  item  code  number  from  the  infotable,  and  the  infovalue  as 
catenated  from  the  A,  B,  and  C  parameters.  The  formula  for  this  ealeu 
lation  is  in  procedure  INFO.  After  displaying  the  table  for  twenty 
columns,  a  sum  is  displayed.  This  is  the  sum  of  all  of  the  infovalues 
for  the  particular  rou  being  analyzed.  Then  the  next  rou  is  displayed 
etc.  until  all  of  the  rous  of  the  infotable  for  this  subtest  have  been 
shoun.  An  option  is  available  to  display  only  the  sums  for  each  rou, 
eliminating  all  of  the  individual  item  codes  and  infovalues. 


(m  This  is  an  'include*  file  for  program  S 
PROCEDURE  ANALYZE; 

VAR  ROU. 

COLUTW. 

tCAOR. 

OIRSLOT. 

OATAREC. 

I  TENS. 

I  CODE  :  INTEGER; 

A.  B.  C. 

T. 

INFOVAL  .  REAL; 

SUN  :  PACKED  ARRAY [1 . . INFOROUI  OF  REAL 
SELECT  :  CHAR; 

PR I NT ALL  i  BOOLEAN; 


(•  Bounded  exponential  function  m) 

(m  This  function  is  called  bu  :  Function  Info  m) 
FUNCTION  EXPF (  X  :  REAL  )  :  REAL; 

CONST  XMAX  -  29.0; 

XfllN  -  -87.0; 

VAR  Y  :  REAL; 

BEGIN 

IF  X  <  XI1IN  THEN 

V  i-  XfllN 

ELSE  IF  X  >  XMAX  THEN 

V  XMAX 
ELSE 

V  i-  X; 

EXPF  EXP(Y); 

END;  (*  Function  Expf  m) 


(«  Calculate  info  value  from  A,  B,  C  parameters  for  this  Theta,  m) 
(«  This  function  is  called  by  :  Procedure  ANALYZE.  «) 

FUNCTION  !NF0(  T,  A,  B,  C  ;  REAL  )  :  REAL; 

CONST  0  -  1.7;  (m  Scaling  Factor  *) 

VAR  DA, 

TMP, 

Y. 

Z, 

ZC  ;  REAL; 

BEGIN 

OA  ;«  D  *  A; 

V  :•  DA  m  (B  -  T); 
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Z  EXPF(Y); 

ZC  Z  *  C: 

TMP  DA  *  OA  *  (Z  -  ZC)  /  (1.0  +  ZC) ; 

INFO  TOP  *  (1  /  ((1.0  +  Z)  *  (1.0  +  Z)))S 
END;  (*  Function  Info  *) 

(* - - - - - - - —  *) 

(*  get  the  output  destination  *) 

(*  this  procedurs  is  called  by  :  Procedure  ANALYZE  *) 

PROCEDURE  GETOUTPUTDEST; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY(20.0); 

URITECSELECT  OUTPUT  MENU’); 

GOTOXY  (0,4) ; 

URITECSelect  one  of  the  fallowing  options  by  entering  its  number.’); 
GOTOXY  (16. 8); 

URITE (’1.  QUIT’); 

GOTOXY (16. 9); 

URITEC2.  LIST  ROU  OATA  TO  SCREEN’); 

GOTOXY (16. 10); 

URITE (’3.  LIST  ROU  DATA  TO  PRINTER’): 

GOTOXY (16. 11); 

URI TE ('4.  LIST  ROU  OATA  TO  TEXT  FILE’); 

GOTOXY (16. 14); 

URI  TEC  Enter  choice  #  :  ’); 

SELECT  :•  GETCHAR( C 1* .. ’4’1 . TRUE. FALSE, TRUE) ; 

CASE  SELECT  OF 

•1*  «  EXIT (ANALYZE); 

•2*  :  RElFITE(OEST, ’CONSOLE: ’ ) ; 

•3’  :  REURITE(DEST. ’PRINTER: ’); 

*4*  :  GETNEUFILE;  («  Procedure  located  in  textfile  S.UTL  *) 

END;  («  cases  •) 

END;  (*  getoutputdest  *) 


(e . - . *1 

(*  Get  level  of  print  detail,  ie,  either  all  inforeation,  or  just  the  *) 


(«  sues  of  the  rows.  *) 

(e  This  function  is  called  by  :  Procedure  Analyze,  e) 

FUNCTION  PR1NTDETAIL  :  BOOLEAN; 

VAR  OPTION  :  CHAR; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY (20.0); 

URITECSELECT  OUTPUT  MENU’); 

GOTOXY (0.4); 

URITECSelect  one  of  the  following  options  by  entering  its  number.’); 
GOTOXY (16. 8); 

URITECl.  QUIT’); 

GOTOXY (16,9); 

URITEC2.  LIST  ALL  ROU  OATA’); 

GOTOXY (16. 10); 

LRITEC3.  LIST  ONLY  THE  SUM  OF  EACH  ROU’); 

GOTOXY (16. 13); 

URITECSelect  choice  U  :’>; 

OPTION  i-  GETCHAR(IT..’3’J,  TRUE.  FALSE,  TRUE); 

CASE  OPTION  OF 

•1’  :  EXIT  (ANALYZE); 

’2’  s  PRINTOETAIL  :-  TRUE; 

’3’  s  PRINTOETAIL  :-  FALSE; 

END;  («  cases  «) 

END:  (#  Printdetail  *) 

(e - - - *) 

(*  This  procedurs  prints  error  messages  if  there  is  incorrect  infotable  *) 

(*  data,  and  then  it  exits  from  procedure  ANALYZE.  *) 

(•  This  procedure  is  called  by  :  Procedure  ANALYZE.  *) 
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PROCEDURE  ERROR (ERTYPE,  NUMBER  :  INTEGER): 

BEGIN 

(*  SOU AUK  is  located  in  S.UTLS  —  it  rings  ths  bell.  •) 

SOUAUK; 

CASE  ERTYPE  OF 

1  :  BEGIN  («  01RSL0T  will  cause  a  value  range  error  *) 

IF  NUMBER  <  0  THEN 

URITELNCNO  INFOTABLE  EXISTS  FOR  * .01  RECTORY. TESTNAME) : 

I F  NUMBER  >  300  THEN 

URITELNC  INFOTABLE  POINTER  IS  TOO  BIG!!  VERIFY  IT.  * ) : 

END: 

2  :  BEGIN  («  ICOOE  will  cause  a  value  range  error  e) 

IF  NUMBER  <  0  THEN 

URITELNC  INCORRECT  ITEMCOOE!  IT  UAS  ’.NUMBER): 

END; 

END;  (*  cases  *) 

UR  I  TEL  N; 

(«  STALL  is  located  in  S.UTLS  —  it  waits  for  a  <CR>.  *) 

STALL: 

(*  These  files  were  open  in  ANALYZE  uhen  the  error  occurred.  «) 

CLOSE (FILEITEMINFO.LOCK) : 

CLOSE (OEST. LOCK): 

EXIT (ANALYZE); 

END;  (e  error  s) 

(* . . - . . . . . . *) 

(«  This  procedure  prints  out  the  results  of  the  infovalue  calculations.  *) 
(«  This  procedure  is  called  froe  Procedure  ANALYZE,  e) 

PROCEDURE  RESULTS (COLUMN.  ROU  :  INTEGER  ;  PR  I  NT ALL  :  BOOLEAN  ; 

T.  Iff  OVAL.  TOTAL  :  REAL): 

BEGIN 

IF  PRINTALL  TfCN  BEGIN  (1) 

(e  print  headings  s) 

IF  (COLUMN  -  1)  THEN  BEGIN  (2) 

(«  OEST  is  declared  and  initialized  in  ssasessssaaeeee  •) 

MRI TELN (OEST) : 

URITELN(OEST); 

PAGE (OUTPUT); 

(•  DIRECTORY. TESTNAME  is  declared  in 

and  is  initialized  in  Procedure  »»»»*»»»»»*» sssse  e) 
mi  TELN  (OEST.’ SUBTEST  :  ’ .DIRECTORY. TESTNAME) : 

UR I TELN (OEST); 

(e  T  is  global  to  procedure  ANALYZE,  and  it  is  initialized 
also  in  procedure  ANALYZE.  •) 
mi  TELN  (OEST,  ’  Theta  :  \T); 

UR l TELN (OEST); 

FOR  HEAOR  t-  1  TO  4  00 
IHI TE (OEST,*  COL  ITEM#  INFOVALUE’); 

(«  screen  autoaat ical lu  wraps  around,  printer  will  not.  «) 

IF  NOT  (SELECT-’ 2’ )  THEN  mi  TELN  (OEST); 

FOR  KEAOR  1  TO  4  DO 

miTE(0EST,’  - ’); 

mi  TELN  (OEST); 

END;  (2) 

IF  NOT  (SELECT  -  ’2’)  THEN  mi  TELNI’Pr  int  ing  row  :  ’.ROU); 

mi  TE  (OEST,  C0LUMN:3,  ICOOEtS,  INF0VAL:11:7); 

IF  (COLUMN  MOO  4)  -  0  THEN  URITELN(DEST) ; 

IF  (COLUMN  -  ITEMS)  THEN  BEGIN  13) 
miTELN(DEST); 

mi  TELN  (OEST, ’Sue  for  THETA  -  \T.’  ;  ’,  TOTAL); 
mi  TELN  (OEST); 
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(*  stall  if  not  uriting  to  fils  *) 

(*  Procedure  STALL  is  located  in  S.UTLS  *) 
IF  NOT  (SELECT  -  *3*)  THEN  STALL: 

END;  13) 

END  (1) 

ELSE 


(*  Print  only  the  sue  of  the  infovalues  for  each  rou  in  infotable  «) 
BEGIN  (4) 

IF  (COLUMN  -  1)  AND  (ROU  -  1)  THEN  BEGIN  (5) 

PAGE (OUTPUT): 

URI TELN(DEST,' SUBTEST  :  * .DIRECTORY. TESTNAME) ; 

URITELN(DEST); 

END;  (SI 

IF  COLUMN  -  ITEMS  THEN  BEGIN  (61 
URITELN(OEST.' THETA  :  *.T,'  SUM  :  * ,  TOTAL): 

IF  ((ROU  MOO  4)  -  8)  THEN  URITELN(OEST) ; 


(*  16  lines  per  screen  a) 

IF  (SELECT  -  ’2’)  AND  ((ROU  MOO  16)  -  8)  THEN  BEGIN  (7) 
URI  TELN(OEST) ; 

STALL: 

PAGE (OUTPUT): 

URITELN(OEST, ’SUBTEST  :  * .DIRECTORY. TESTNAME) : 
URITELN(OEST); 

END;  (71 
END;  (6) 


(«  stop  after  last  i tea  «) 

IF  (SELECT  -  ’2')  AND  (ROU  -  INFOROU)  AND  (COLUTtJ  -  ITEMS) 

Tf£N  BEGIN  (8) 

URITELN(OEST); 

STALL: 

EfC:  (8) 

END:  14) 

END;  (*  resulte  «) 

(* - •) 

(«  print  a  histograa  of  the  suas  *) 

(*  This  procedure  is  called  by  :  Procedure  ANALYZE  *) 

PROCEDURE  GRAPH: 

VAR  N.SIZE  i  INTEGER: 

HALFSIZE  :  BOOLEAN: 

(« .  ») 

PROCEDURE  GRAPHMENU; 

VAR  OPTION  :  CHAR: 

BEGIN 

PAGE  (OUTPUT): 

G0T0XY(28,8); 

UR  I  TEC  GRAPH  MENU'); 

GOTOXY (8,4) ; 

URITECSelect  one  of  the  following  options  by  entering  its  nuaber.'); 
GOTOXY (16,8): 

URI  TEC  1.  NO  GRAPH'); 

GOTOXY (16. 3); 

URITEC2.  DISPLAY  GRAPH  ON  SCREEN'); 

GOTOXY  (16. 18): 

URITEC3.  DISPLAY  GRAPH  ON  PRINTER’); 

GOTOXY(16,11); 

URITEC4.  URITE  GRAPH  OUT  TO  FILE’): 

GOTOXY (16, 14): 

URITECSelect  choice  tt  :'); 

OPTION  GETCHARt  Cl’ . .  *4*  J , TRUE, FALSE,  TRUE) ; 

CASE  OPTION  OF 

•1’  :  EXIT (GRAPH); 

’2’  :  REURITEtDEST. 'CONSOLE:'); 

'3'  :  REURITEtDEST, 'PRINTER:'); 
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•4*  :  GETNEUFILE; 
END;  (*  cases  *) 
END;  («  graphaenu  *) 


I* - - - *) 

FUNCTION  T OOLONG  :  BOOLEAN; 

VAR  MAX  t  REAL; 

ROU  :  INTEGER; 

BEGIN 

MAX  :•  0.0; 

FOR  ROU  :•  1  TO  INFOROU  DO 
BEGIN 

IF  SUNIROUI  >  MAX  THEN 
MAX  SUNIROUI ; 

END; 

IF  NAX  >  G0.0  THEN 
T OOLONG  TRUE 

ELSE 

T OOLONG  s-  FALSE; 

END:  (*  too  long  s) 

(* .  *) 

BEGIN  (s  graph  «) 

GRAPHfENU; 

PAGE (OUTPUT) ; 

URITELNC READY  TO  PRINT  GRAPH  OF  RESULTS’); 

URITELN  (’Be  certain  paper  is  alligned  if  using  a  printer.’); 

URITELN; 

STALL; 

PAGE (OUTPUT); 

URITELNCURITING  GRAPH...*); 

HALFSIZE  TOOLONG; 

(•  print  top  heading  and  scale  «) 

URITELN  (OEST, ’SUBTEST  :  ’. DIRECTORY. TESTNANE); 

UR I TELN(OEST) ; 

URITELN (OEST, *  SUN  OF  I  TEH  INFORMATION  VALUES  OF  BEST  *, 

ITEMS.*  ITEMS’); 

URITELN  (OEST); 

URITEdJEST,’  THETA  SUM  ’); 

FOR  N  »-  1  TO  S4  DO 
IF  (N  MOO  9)  -  0  THEN 
IF  HALFSIZE  THEN 
URITECOEST,  (  (N  01 V  9)  e  20)  ) 

ELSE 

URITECOEST,  (  (N  01 V  9)  *  10)  ) 

ELSE 

URITECOEST, ’  ’); 

URITELN (OEST); 

URITE(DEST.’ . —  ’); 

FOR  N  1  TO  60  DO 
IF  (N  MOO  10)  -  0  THEN 
WITE(OEST.’I’) 

ELSE 

URITEIDEST.’-’); 

URITELN  (OEST) ; 

(*  print  data  and  graph  *) 

FOR  ROU  1  TO  INFOROU  DO 
BEGIN  ID 

T  THIN  +  <0T  *  (ROU-1)  );  (*  T  Is  THETA  value  *) 

UTITE(DEST,T:6s3,SUM IROUI  ;8:3, ’  |’>; 

IF  HALFSIZE  THEN 
SIZE  TRUNC (SUM CROUJ /2) 

ELSE 

SIZE  TRUNC  (SUM  CROUD; 

FOR  N  1  TO  SIZE  DO 
URITECOEST,’.*); 

URITELN (OEST); 

END;  (II 
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(a  print  scale  at  bottoa  of  graph  «) 
WRITE (OEST,  *  Mj 

FOR  N  : -  1  TO  60  00 
IF  (N  riOO  10)  -  0  THEN 
WRITE (OEST,’ |*) 

ELSE 

WRITE(DEST,'-'); 

WRITELN(DEST)  j 

WRITE (OEST, *  •): 

FOR  N  1  TO  54  DO 
IF  (N  MOO  9)  -  0  THEN 
IF  HALFSIZE  THEN 
WRITE (DEST,  I  (N  DIV  9)  *  20)  ) 
ELSE 

WRITE (OEST,  (  (N  DIV  9)  »  10)  ) 

ELSE 

WRITE (OEST. *  *): 

URITELN(OEST); 

STALL: 

CLOSE (OEST. LOCK): 

END:  (*  graph  «) 


(* .  s) 

BEGIN  (a  Analyze  *) 

(a  Procedure  LOAOTEST  is  located  in  textfile  S.HGR.  a) 

LOAOTEST ( *  Ana  I yze  roue  for  which  subtest?  :*); 

(•  the  boolean  ESCPROC  is  global  to  S.HGR,  and  it  is  initialized  in 
Procedure  LOAOTEST.  a) 

IF  ESCPROC  THEN  EXIT (ANALYZE); 

PAGE (OUTPUT); 

(s  load  the  directory  locations  *) 

(«  Procedure  LOADINFO  is  located  in  textfile  S.HGR  •) 

L0A0INF0(CURRIN0EXRECNUH  ♦  flAXSUB TESTS  ♦  1); 

(*  PRINTALL  is  a  boolean  -  False  if  only  want  to  print  Suas, 

True  if  print  inf ova  lues  8  iteacodes.  a) 

PRINTALL  :-  PRINTOETAIL; 

REPEAT 

PAGE (OUTPUT): 

LRITELNCA  sub  of  infovalues  will  be  coaputed.  Only  the  best  ’ ,  INFOCOLUMN) ; 
URITELNC  i  teas  in  each  row  of  the  infotable  are  available  for  use*); 
URITELNC  in  the  coaputation.  You  aay  select  fewer.'); 

WRITELN: 

WRITE ('Enter  the  nuaber  of  I  teas  per  row  to  bs  suaaed  over  :  ’); 

READLN ( 1 TEDS) ; 

(a  INFOCOLUMN  is  a  global  constant  a) 

IF  (ITEMS  >  INFOCOLUMN)  OR  (ITEMS  <-  1)  THEN  SQUAWK; 

UNTIL  ( I TEMS<- INFOCOLUMN)  AND  (ITEMS  >  1); 

GETOUTPUTOEST; 

(a  FILEITEMINFQ  is  global  to  S.MGR  —  DATANAME  is  a  global  constant  a) 

RESET (F I LE I TEM I NFO . DAT ANAME ) ; 

PAGE (OUTPUT): 

(a  INFOROU  is  a  global  constant  a) 

FOR  ROU  1  TO  INFOROU  DO 
BEGIN  (1) 

(a  TMIN  and  OT  are  global  constants  a) 

T  TMIN  ♦  (OT  a  (ROU-1)  )|  (a  T  is  THETA  value  a) 

SUM  [ROW)  :-  0; 

FOR  COLUMN  1  TO  ITEMS  DO 
BEGIN  (3) 

(a  INFOTABLE  is  declared  and  initialized  in  Procedure  INFOSETUP  in 
textf i le  S.MGR  a) 

01RSL0T  t-  INFOTABLE (COLUMN, ROU] , 

IF  (DIRSLOT<0)  OR  (DIRSLOT>300)  THEN  ERROR(l.OIRSLOT) ; 
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(*  DIRECTORY. I TEMCOOE  is  global  to  S.HGR,  and  Is  initialized  in 
Procedure  LOAOTEST  in  textfile  S.HGR  *) 

ICOOE  DIRECTORY. I TEHCOOE IDIRSLOT] ; 

IF  ICOOE  <  0  THEN  ERROR (2. ICOOE) i 


(*  HASH  is  an  integer  function  in  textfile  S.HGR  *) 
OATAREC  HASH(OIRSLOT) j 

SEEK  (F I LE I  TEH 1 NFO . OATAREC ) ; 

GET  (FILEI TEHINFO) : 

(a  I TEHINFO  is  global  to  S.HGR  e) 

ITEHINFO  FILEITEHINFO^i 
A  ITEHINFO. Aj 

B  ITEHINFO. B: 

C  I TEHINFO. C; 

INFOVAL  INFO(T.A.B.C) : 

SUHIROU]  SUntROUI  ♦  INFOVAL i 

(a  print  values  calculated  a) 

RESULTS (COLUHN,  ROW.  PR I  NT ALL.  T.  INFOVAL.  SUHIROU]): 
END:  (3) 

END;  (I) 

CLOSE  (FILEI  TEHINFO.LOCK) : 

CLOSE (OEST, LOCK) : 

GRAPH; 

END;  (*  analyze  a) 


GMGR.DIR: 

Subdirectory  -  Graphics  Management 
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(aSS+a) 

****a«aae*sea**»e«eeeea*seesaa*aaa**aassaeaa>>sis*sa*ai 

(« 

(a  Textfi la  :  G. MGR. TEXT  Voluae  :  TFILES  > 

(*  Codefile  :  G. MGR. CODE  Voluae  :  CATOATA 

(«  1 

(a  File  last  aodified  :  Feb  28.  1983  NPRDC  i 

rrttt  1 1  **,-‘n‘r**»«*“*r»«»»»***  ““»*****■**»»«  »»*»**'*“*»«*»*****““1*»  *»»»****= 


PROGRAM  GRAPH I CS_TES T  .MANAGER : 
USES  CHAINS TUFF, 

PGRAF, 

APPLESTUFF, 

REALMOOES, 

TRANSCENO: 


CONST  (*  available  screen  diaensions  •) 

NORTH  -  191; 

SOUTH  -  32; 

UEST  .  8: 

EAST  -  S59: 

(a  screen  diaensions  *) 

X SCREEN  -  79; 

YSCREEN  -  23: 

(*  screen  boundaries  for  question  text  *) 

(a  lines  28  -23  reserved  for  sgstea  aessages  «) 
TOPMAX  -  8: 

LEFTMAX  -  8: 

BOTTOMMAX  -  19: 

GOTOFLAG  -  128: 

PAGEFLAG  -  129; 

UNUSE OFLAG  -  138; 

ENOITEM  -  131: 

(*  ascii  values  a) 

ETX  -  3;  (a  control-c  *) 

BELL  -  7; 

NUL  -  8; 

L ARROW  -  8; 

RARROU  -  21: 

RET  -  13; 

UP  -  11;  («  up  arrow  a) 

OOUN  -  18;  (a  down  arrou  a) 

ESC  -  27; 

SPACE  -  32: 

PAGEOUT  -  IS;  (a  cntrl-p  on  apple  H  a) 

ASCI  I OFFSET  -  48;  (a  ascii  zero  a) 


I NOEXNAME  -  'CATOATA: TEST INDEX. DATA*;  (a  test  directory  a) 


(a  slots  available  in  directory  a) 
MAXSUB TESTS  -  28; 

(a  aaxiaua  question  pool  per  test  a) 
MAXI TEMPOOL  -  308; 

VERSION  -  *  (1.83)'; 


TYPE  OIROATA  -  PACKED  RECORD  (a  directory  for  tests  a) 

UNUSED  :  BOOLEAN;  (a  tells  if  record  occupied  a) 

TESTNAME  :  STRING;  (a  naae  of  subtest  a) 

(a  subtest  directory  of  question  id  codes  a) 

I TEMCOOE  :  PACKED  ARRAY 

[0.. MAX I TEMPOOL] 

OF  INTEGER; 

END; 
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SETOFCHAR  -  SET  OF  CHAR; 


XI.  X2.  Yl.  Y2, 

XCOORD, 

YCOORO, 

HEADING. 

CURRItCEXRECNUn  . 

( 

I . 

( 

RSET, 

( 

LSET. 

( 

TSET, 

( 

BSET, 

< 

CURR8L0CK. 

( 

CURRFREEPTR, 

( 

OLDX, 

1 

OLDY. 

( 

X. 

( 

Y  ;  INTEGER; 

COTPRESSEO. 

( 

ESCPROC. 

( 

FOREVER. 

< 

ERASE. 

( 

FASTCURSOR. 

( 

T.B.R.L. 

( 

PREVTRAVEL. 

( 

PREVBLACK, 

( 

NOnORE  :  BOOLEAN; 

( 

starttiae, 
endtiae, 
elasped  :  real: 


CH, 

ESCAPE. 

TLEFT. 

TRIGHT. 

TUP. 

TOOUN. 

COtriAND. 

OUTPUT  : 


CHAR; 


FNAflE, 

OESTNAOE, 

SOURCENATC. 

VNANE. 

SUBTEST  CHAR  :  STRING: 


subtest  record  ») 
counter  a) 

right  border  set  by  user  *) 

left  border  set  by  user  *) 

top  border  set  by  user  a) 

bottoa  border  set  by  user  a) 

current  block  read/ur ite  a) 

current  byte  location  in  current  block  a) 

last  x-location  you  uere  at  on  graphics  screen 

last  y-location  a) 

graphic  screen  coordinates  a) 


true  •■>  graphics  is  coapressed  a) 

true  •■>  quit  prograa  a) 

true  ■•»  stay  in  loop  a) 

true  ••>  arrows  will  erase  a) 

true  -->  sake  piclette  cursor  go  faster  a) 

true  ••>  borders  uere  set  by  user  a) 

true  user  aoved  cursor  a) 

true  ••>  last  location  uaa  black  a) 

true  -•>  nothing  left  to  do  a) 


(a  where  you  what  the  picture  krunched  to  a) 
(a  what  fotofila  you  want  to  load  a) 


(a  saves  old  screen  colors  where  top  and  bottoe  borders  lie  a) 
TUNE. 

8LINE  :  PACKED  ARRAY  CHEST. .EAST)  OF  BOOLEAN; 

(a  saves  old  screen  colors  where  left  and  right  borders  lie  a) 
RUNE, 

LLINE  :  PACKED  ARRAY  [SOUTH. .NORTH]  OF  BOOLEAN; 


(a  graphics  screen  buffer  a) 

(a  gbuffer  always  reflects  the  original  picture  a) 

(a  dotbuff  reflects  uhats  left  of  original  picture  after  each  a) 
(a  stage  of  krunching  a) 

GBUFFER 

OOTBUFf’;  PACKED  ARRAY  WEST. .EAST, SOUTH. .NORTH)  OF  BOOLEAN; 


(a  coapression  data  4  blocks  uorth  a) 
TRIX  ;  RECORD  CASE  INTEGER  OF 
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1  i  (ITEHBUF  :  ARRAY [0.. 1023]  OF  INTEGER)! 

2  :  (ASCIIBUF  :  PACKED  ARRAY  IB. .2047]  OF  0..139)| 
ENOi 


(•  directory  record  inforeation  a) 

DIRINFO  !  ARRAY [0. . HAXSU8TESTS1  OF  RECORD 

(a  record  occupied  a) 
NOTUSEO  t  BOOLEAN! 

(a  eubtest  naee  a) 

TNAOE  i  STRING: 

(a  U  i teas  in  eubtest  a) 
I TEHCOUNT  s  INTEGER! 

END: 

screen  i  packed  array (0. .79,0.. 231  of  char: 

DIRECTORY  i  OIROATA! 

FILEJDIRECTORY  :  FILE  OF  0IR_0ATA5 

(a  graphics  screen  file  a) 

GSCREEN  i  INTERACTIVE: 

(a  coapression  file  a) 

GTEXT  i  FILE; 


PROCEDURE  PAGE (0UTI1Y  :  CHAR)!  FORUARDs 
PROCEDURE  SOU AUK;  FORUARD; 
FUNCTION  GETCHAR (OKSET  «  SETOFCHAR; 

FLUSHOUEUE. ECHO. BEEP  s  BOOLEAN)  :  CHAR;  FORUAROi 
PROCEDURE  STALL;  FORUAROj 
PROCEDURE  BLAMCLINES (START. COUNT, ENDCURSOR  :  INTEGER);  FORUARD s 
FUNCTION  TIME  :  REAL!  FORUAROi 
PROCEDURE  GGOTOXY(X.Y  :  INTEGER);  FORUAROi 
PROCEDURE  GURITESTRIGSTR  ;  STRING) i  FORUAROi 
PROCEDURE  GURI TECHR (GCHR  i  CHAR);  FORUAROi 
PROCEDURE  CLEARBOTTOfli  FORUARD; 
PROCEDURE  WITEITEnBLOCKCUHICHBLOCK  !  INTEGER);  FORUARD; 
PROCEDURE  REAOITEnBLOCK (UHICHBLOCK  :  INTEGER)!  FORUARD; 
PROCEDURE  TRAVEL (COORD  :  CHAR;  VALUE  :  INTEGER);  FORUARD; 
PROCEDURE  HAINMENU;  FORUARD; 


(at I  /TFILES/GHGR.DIR/G. 1SUBRT. TEXT  a) 

(atl  /TFILES/GMGR.DIR/G.2SUBRT.TEXT  a) 

(atl  /TFILES/GMGR.OIR/G.UTL.TEXT  a)  (a  graphic  utilities  a) 
(atl  /TFILES/GOGR.OIR/G.SUBRT.TEXT  a) 


(a  aain  line  prograa  a) 

BEGIN  (a  graphictestagr  a) 

FOREVER  TRUE; 

GETDIRINFO; 

REPEAT 

ESCPROC  FALSE; 

LOAOTESTI’Edi t  graphics  for  uhich  subtest?  ;  ’); 
IF  ESCPROC  THEN 
FOREVER  FALSE 
ELSE 
BEGIN 

SUBTEST.CHAR  t-  ’  ’; 

SUBTESTCHAR  tl)  t-  CHRtCURRINOEXRECNUTUGS) ; 
INITIAL: 
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FASTCURSOR  FALSE: 
ERASE  FALSE: 
PREVBLACK  FALSE: 
F1M3: 

MAINMENU; 

REPEAT 


READ  (ICE  YBOARO.CH): 


CASE  CH  OF 

*7*  :  PLOT C7*  .8) : 
*9'  :  PLOTr9*,0): 
•1*  :  PLOTCr.0): 
’3’  :  PLOT  (’3*  ,0) : 
’4*  :  PLOTCX’.-l); 
’S’  :  PLOT (*5* .0); 
•6’  :  PLOT CX' ,  1): 
*8*  :  PLOTCY*.  l)s 
•2*  :  PLOTCY1. -1); 
:  Draw: 

: 


•OVd 

•CVc 

'H’.'h 

’P’.’p 

•R’.’r 


Characters: 

:  Find: 

:  Polygon: 

:  BEGIN 

PAGE  (OUTPUT): 

TEXTON: 

URITECClear  graphics  screen  ?  Y/N  :  *); 

IF  GETCHARICY'.'N'.'y'.'n*] .TRUE, TRUE, TRUE)  IN 
C Y' , *y* J  THEN 
BEGIN 
GRAF IKON: 

Reaova: 

END 

ELSE 

GRAFIXON: 


END: 

'L*,* I*  :  Load; 

’S’.'e*  i  Save: 

T.’f  «  ERASE  TRUE; 

*N* , *n'  :  FASTCURSOR  >-  FALSE: 

•E’.’e’  »  ERASE  >.  FALSE: 

’F’.’f  :  FASTCURSOR  «-  TRUE: 
*K* , *k*  :  KRUNCH: 

OTHERWISE 

IF  (CH  -  TLEFT)  T)CN 
TRAVELCX’.-l) 

ELSE 

IF  (CH  -  TRIGHT)  THEN 
TRAVEL (*X*.  1) 

ELSE 

IF  (CH  -  TUP)  TVEN 
TRAVELCY*.  1) 

ELSE 

IF  (CH  -  TDOUN)  TEEN 
TRAVEL  CY'.-l): 

END: 


UNTIL  CH  IN  t’Q* ,  ’q’l : 
CLOSE (GSCREEN, NORMAL) : 

END: 

UNTIL  NOT  FOREVER: 

SETCHA1 N ( ’ CATOAT A: CATPRO JECT  ’ ) : 
END. 
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<*  FILE  :  G.UTL.TEXT 
(*  File  last  Modified  : 

(eeMMSMMMeiMMMmreSa 


Feb  2S.1983 


(*  clear  the  screen  and  put  cursor  at  0,0  *) 
PROCEDURE  PAGE; 

BEGIN 

WRITE  (CHR(28)); 

GOTOXY (0,0) ; 

END;  (*  page  *) 


(«***  rings  the  bell  ***«) 
PROCEDURE  SOU AUK; 

BEGIN 

URI TE (CHR (BELL) > ; 

END;  (*  squawk  «) 


(«  read  an  acceptable  character  froa  the  keyboard  *) 
FUNCTION  GETCHAR; 

VAR  MASK  :  PACKED  ARRAY  [0. . 01  OF  CHAR; 

BEGIN 

IF  FLUSHQUEUE  THEN  UNITCLEARI2) ;  («  flush  buffer  *) 
REPEAT 

UNITREAD (2. MASK.l); 

IF  BEEP  AND  NOT  (MASK (01  IN  OKSET)  THEN  SQUAWK; 
UNTIL  MASK  101  IN  OKSET; 

IF  ECHO  AND  (MASK  101  IN  (CHR (32) . .CHR (126) 1 )  THEN 
URI TE (MASK (01); 

GETCHAR  MASK (01; 

END;  (*  getchar  «) 


(«***  display  a  aessage/uait  for  a  keystroke  ***») 
PROCEDURE  STALL; 

VAR  STALLCHAR  «  CHAR; 

BEGIN 

URITE(*Preee  <RET>  to  continue  *); 

STALLCHAR 

GETCHAR ( (CHR (RET) . CHR (ESC) 1 . TRUE . FALSE . TRUE) ; 
IF  STALLCHAR  -  CHR (ESC)  THEN  EX I T (PROGRAM) ; 

END;  (e  stal I  •) 


(m«  blank  out  lines  **») 
PROCEDURE  BLANKLINES: 

VAR  I  ;  INTEGER; 

BEGIN 

GOTOXY (0, START); 

FOR  I  1  TO  (COUNT-1)  DO 
URITELNC  *  :  39); 
URITEC  ’  :39) ; 

GOTOXY (0.ENDCURSOR); 

END;  (a  b I ank I i nee  «) 


(e  returns  the  U  seconds  elasped  since  start  of  the  day  *) 
FUNCTION  TIME; 

TYPE  T1MEREC0RD  -  RECORD 

S  ;  PACKED  ARRAY (1.. 121  OF  CHAR; 

END; 

VAR  HOUR, 

MINUTE, 

SECOND  :  REAL: 

T  «  TIMERECORO; 

TFILE  «  FILE  OF  TIMERECORO; 
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BEGIN 

RESET  (TFILE, ’ .CLOCK' ) j 
T  TFILE*: 

HOUR  ((ORO(T.SIG))  -  48.0)  e  10.0)  + 

(OROIT.SI7) )  -  48.0); 

HINUTE  :•  ( (0RD(T.S£8) )  -  48.0)  «  10.0)  + 
(ORO(T.SI9I)  -  48.0): 

SECOND  ( (ORO(T.SC10) )  -  48.0)  *  10.0)  + 

(ORO  CT.S  fill )  -  48.0): 

TINE  :-  (HOUR  *  3600.0)  ♦  (NINUTE  *  60.0)  +  SECOND; 


(•  tiee  *) 


(«  does  a  gotoxy  to  the  grafix  screen  using  text  coordinates  *) 
PROCEDURE  GGOTOXY; 

VAR  XPOS. 

YPOS  :  INTEGER: 

BEGIN 

XPOS  «-  X  *  7; 

YPOS  191  -  (V  *  8): 

MOVETO (XPOS. YPOS): 

END:  (*  ggotoxy  «) 


(*  write  a  string  to  grafix  *) 

PROCEDURE  GUR1TESTR; 

BEGIN 

UNI TURI TE (3.GSTR  (1) .LENGTH (GSTR)  .0. 12) : 
END:  (*  gwritestr  «) 


(«  does  a  write  to  graphics  screen  for  char  values  *) 
PROCEDURE  GURITECHR; 

VAR  C  :  STRING: 

BEGIN 
C  i-  ’  ‘i 
CI11  GCHR; 

UNI TURI TE (3. C  (II. 1.0. 12): 

END;  (a  gwritechr  *) 


(*  clear  reserved  spaced  at  bottoe  of  graphics  screen  •) 
PROCEDURE  CLEARBOTTON; 

BEGIN 

VIEUPORT  (0,559.0,  SOUTH) ; 

FILLCOLOR (BLACK), 

FILLPORT: 

VIEUPORT (0.559,0. 191); 

FILLCOLOR (UHITE); 

END;  (*  clearbottoe  *) 


(*  writes  the  graph  ice  buffer  to  diskfile  s) 

PROCEDURE  URITEI TEN8L0CX; 

VAR  BLOCXSTRANSFERRED  :  INTEGER; 

BADIO  :  BOOLEAN; 

BEGIN 

BADIO  r-  FALSE; 

RESET (GTEXT.DESTNANE) ; 

BLOCXSTRANSFERRED  BLKXURITE (GTEXT,  TRIX.  I TENBUF.4.UHICHBLOCIO ; 
BADIO  ((BLOCXSTRANSFERREO  <  4)  OR  (I ORE SUL T  <>  0)); 

CLOSE (GTEXT. LOCK): 

IF  BADIO  THEN 
BEGIN 
URITELN; 

URITELN; 

URITEC  Block  \  UHICHBLOCX.’  write  error.  * ) ; 
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URITELNj 

REAOLNi 

EXIT (PROGRAM) : 

END: 

END;  (*  uri tei teeblock  *) 


(«  reads  a  block  f roe  disk  Into  the  item  ascii  buffer  *) 

PROCEDURE  READ  I TEMBLOCK ; 

VAR  BLOCKSTRANSFERRED  :  INTEGER; 

BAD 10  :  BOOLEAN; 

BEGIN 

BAOIO  FALSE: 

RESET (GTEXT , OESTNAME ) ; 

BLOCKSTRANSFERRED  :-  BLOCKREAO(GTEXT.TRIX. ITEr«UF.4,UHICHBL0CK>: 
BADIO  ((BLOCKSTRANSFERRED  <  4)  OR  (IORESULT  <>  0)); 

CLOSE (GTEXT. LOCK); 

IF  BAOIO  THEN 
BEGIN 
URITELN; 

URITELNj 

URITEC  Block  \  UHICHBLOCK,*  urite  error. *); 

URITELN: 

READLN; 

EXI T (PROGRAM) j 
END; 

END;  (*  read i teeblock  «) 


(«  sain  eenu  of  coeeande  *) 
PROCEDURE  MAINMENU; 

BEGIN 

CLEARBOTTOM; 

GGOTOXY (0.20) ; 

GURITESTRC SUBTEST  :  ’); 
GURITESTR(DIRECTORY.TESTNAME); 
PENCOLOR (UHI TE) j 
FILLCOLOR (BLACK); 

GGOTOXY (0.21); 

GURITESTR( 


*N)oraal  cursor 
GGOTOXY (0.22); 
GURITESTR( 

F)ast  cursor 

0)rau  line 

Slave  file 

R)eaove*); 

’<keypad  0s  drau> 
GGOTOXY (0,23); 
GlfUTESTR( 

P) o 1 ygon 

H)  oae 

Doad  file 

K)runch* ) ; 

'<arroMs  to  aove> 

Oharacters 

E)rase  off 

T)urn  erase  on 

Q)uit’)j 

PENCOLOR (BLACK) ; 
FILLCOLOR  ((KITE) ; 
V1EIP0RT (0,559,32, 191) ; 
MOVETO(0.32); 

END;  (»  sain  Menu  «) 


(a  uri tee  the  directory  information  to  record  *) 
(«  puts  necessary  file  info  in  Bain  aeaory  «) 

PROCEDURE  GETOIRINFO; 

VAR  I ,K, I COUNT  :  INTEGER: 

BEGIN 

(a  initialize  the  directory  inforwation  a) 

FOR  I  t-  0  TO  MAXSUBTESTS  DO 
01RINF0II)  .NOTUSED  TRUE; 

(a  get  the  directory  inforaation  a) 

I  i  •  0: 

RESET (FILEOIRECTORY, INOEXNAME) j 
REPEAT 

SEEK (FILEOIRECTORY, I ) ; 

GET  (FILEOIRECTORY); 

IF  NOT  (FILEOIRECTORY''. UNUSED)  THEN 
BEGIN 
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(*  File  last  Modified  :  Dag  6,  1983  NPROC  «) 

(*  G.SUBRT  «) 


(«  this  procedure  clears  the  entire  screen  «) 

(*  this  procedure  is  SMbedded  in  procedure  edit  ») 

PROCEDURE  REMOVE j 
BEGIN 

VIEUPORT (0,559,0,191); 

F I LLCOLOR (BLACK ) : 

FILLPORT: 

VIEUPORT (8,559, 32, 191) :  (*  this  initializes  the  drauing  vieuport  «) 

FILLCOLOR (UHI T£) : 

FILLPORT; 

MAINT1ENU; 

END;  («  reaove  *) 


(«  this  procedure  clears  the  last  four  rows  of  the  graphics  screen  *) 
(*  this  procedure  is  embedded  in  procedure  edit  *) 

PROCEDURE  BOTTOM (BOTTOM  COLOR  :  SCREENCOLOR) ; 

BEGIN 

VIEUPORT (0,559,0,32): 

F I LLCOLOR (BOT  T0M_C0L0R ) : 

FILLPORT; 

VIEUPORT (0,559.32, 191); 

END;  (*  bottoM  *) 


(*  this  procedure  ie  eabedded  in  procedure  edit  *> 

PROCEDURE  INITIAL: 

VAR 

ASCII  :  PACKED  ARRAY (0..01  OF  0..2S5: 

I  >  INTEGER; 

TESTNAMEJ.ENGTH  :  INTEGER: 

BEGIN 

INITGRAF1X; 

GRAFIXMOOE(BU5S0,1) ; 

REMOVE; 

GRAFIXON; 

XCOORO  0; 

YCOORO  i.  0; 

TLEFT  CHR(8); 

TRIGHT  :-  CHR (21) ; 

TUP  s-  CHR(ll) ; 

TDOUW  CHR (10): 

ESCAPE  CHR (27); 

XI  «-  0; 

X2  0; 

Y1  0; 

Y2  0; 

PREV TRAVEL  FALSE; 

REURITE (GSCREEN, * .GRAF I X’ ) ; 

END;  (*  initial  *) 
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{«  this  procedure  plots  points  on  the  screen 
(a  this  procedure  is  enbedded  in  procedure  edit 
PROCEDURE  PLOT (COORO  :  CHAR;  VALUE  :  INTEGER); 
BEGIN 

XCOORO  XLOC; 

VCOORO  YLOC; 

IF  ERASE  THEN 
BEGIN 

PENCOLOR  (UH I TE) ; 

DOTAT (XCOORO. VCOORO) ; 

PENCOLOR (BLACK) ; 

ENO; 


IF  COORD  -  *X’  THEN 
XCOORO  XCOORO  +  VALUE 

ELSE 

IF  COORO  -  *Y*  THEN 
VCOORO  YCOORO  ♦  VALUE 

ELSE 

IF  COORO  -  '7*  ThEN 
BEGIN 

XCOORO  XCOORO  -  1; 

YCOORO  YCOORO  ♦  1; 

ENO 
ELSE 

IF  COORD  -  *9’  THEN 
BEGIN 

XCOORO  XCOORO  ♦  1; 

YCOORO  YCOORO  +  1; 

ENO 
ELSE 

IF  COORO  -  T  THEN 
BEGIN 

XCOORO  XCOORO  -  1: 

YCOORO  YCOORO  -  1; 

ENO 
ELSE 

IF  COORO  -  *3*  THEN 
BEGIN 

XCOORO  XCOORO  -*■  1; 

YCOORO  YCOORO  -  1; 

END; 


(*  coepute  new  X  coordinate  a) 


(*  compute  new  Y  coordinate  *) 


(a  coepute  neu  upper  left  XY  coordinate  a) 


(a  compute  neu  upper  right  XY  coordinate  a) 


(a  compute  neu  louer  left  XY  coordinate  a) 


(a  compute  neu  louer  right  XY  coordinate  a) 


DOTAT (XCOORO. YCOORO) ; 
SOUND (1.1. S3); 
PREV_TRAVEL  FALSE; 

IF  NOT  ERASE  THEN 
BEGIN 

XI  XLOC; 

Y1  ;-  YLOC; 

ENO; 

ENO;  (a  plot  a) 


(a  this  procedure  allous  you  to  enter  characters  on  the  graphics  screen  a) 
(a  this  procedure  is  embedded  in  procedure  edit  a) 

PROCEDURE  CHARACTERS; 

VAR 

ASCII  ;  PACKED  ARRAY (0. .8)  OF  0..2S5; 

X.Y  :  INTEGER; 

BEGIN 

IF  PREV_TRAVEL  THEN 
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BEGIN 

PENCOLOR (UNITE) ; 

DOTAT  (XLOC, YLOC) t 
PENCOLOR (BLACK) ; 

ENDj 

CLEARBOTTOM; 

GGOTOXY (0,20) ; 

GURI TESTR <’ SUBTEST  t  '), 

GUR I TESTR (DIRECTORY . TESTNAflE ) ; 

PENCOLOR  <UH I  TE)| 

F i LLCOLOR  (BLACK ) ; 

GGOTOXY (0. 22) ; 

GUR I TESTR (’Enter  characters.  Arrous  aove  cursor’ll 
GGOTOXY (8. 23) j 

GURITESTRCPress  <ESC>  to  leave  character  Mode.  ’ ); 

PENCOLOR (BLACK) j 
FILLCOLOR (UHI TE) t 

tt0VET0(8,39);  («  ALIGNMENT  *) 

REPEAT 

(*  CREATE  CURSOR  «) 

FILLCOLOR (BLACK) j 

VIEUPORT (XL0C.XL0C+6, YLOC-7, YLOC) ; 

FILLPORTs 


UNI  TREAD (2, ASCI  1,1,, 12) : 

(*  OELETE  CURSOR  *) 
FILLCOLOR (UHI TE) i 
FILLPORT; 


CASE  ASCI  1 18)  OF 
8  s  MOVETO(XLOC  -  7.  YLOC); 
21  ;  MOVEKHXLOC  +  7.  YLOC); 
18  :  ftOVETO (XLOC. YLOC  -  8); 

11  s  MOVETQ (XLOC. YLOC  +  8); 

13  t  M0VET0C8,  YLX  -  8); 

27  :  , 

OTHERUISE 

UNI TURI TE (3, ASCI  1 . 1 , , 12) 

END; 


(*  left  arrou  s) 
(«  right  arrou  «) 
(*  doun  arrou  «) 
(a  up  arrou  *) 

(e  return  keg  s) 


UNTIL  ASCI  1 181  •  27;  («  escape  ») 

VIEUPORT <0,559.32, 191); 

PREVTRAVEL  FALSE; 

X  ;-  XLOC; 

Y  ;-  YLOC; 

MAINMENU; 

MOVETOIX.Y); 

END;  («  characters  «) 


(*  this  procedure  saves  the  graphics  screen  to  the  votuee  CATOATA:  «) 
(«  this  procedure  is  embedded  in  procedure  edit  e) 

PROCEDURE  SAVE; 

VAR 

QNAME.FNAME  t  STRING) 

A  «  PACKED  ARRAY  18. .8)  OF  29.. 29) 

SELECT  ;  CHAR) 

BEGIN 

IF  PREVTRAVEL  THEN  (*  eliminate  travel  dot  e) 
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PENCOLOR (UHITE) ; 

DOT AT (XLOC, YLOC) ; 

PENCOLOR (BLACK); 

END; 

TEXTON; 

GOTOXY (0.0) ; 

URI TE (CHR (28) ) ; 

GOTOXY (18,0) ; 

URI TE (’WRITE  GRAPHICS  MENU’ ) ; 

GOTOXY (0,4); 

URITE(*Select  one  of  the  following  options  by  entering  its  number.’); 
GOTOXY (1G. 8); 

URITEC1.  QUIT’); 

GOTOXY (1G, 9); 

WRITE (’2.  URITE  OUT  AS  SUBTEST  0UESTI0N’); 

GOTOXY (IS, 10); 

URITEC3,  URITE  OUT  AS  SUBTEST  SAMPLE  QUESTION’); 

GOTOXY (16. 11); 

URITEC4.  URITE  TO  SPEC1FIE0  F1LENATE* ); 

GOTOXY (1G. 15); 

URITECEnter  Choice  #  i  ’ ) ; 

SELECT  GETCHAR(  fl’ . . ’4’) .  TRUE.  TRUE.  TRUE) ; 

CASE  SELECT  OF 
’1*  i  BEGIN 

PAGE (OUTPUT); 

GRAFIXON; 

EXIT (SAVE); 

END; 

’2*  ;  BEGIN 

BOTTOTl  (UHITE) ; 

PAGE (OUTPUT) ; 

URITECEnter  the  i  teacode  :  '); 

REAOLN(QNAME) ; 

FNAME  CONCAT  C/CATFOTO/’  .SUBTESTCHAR,  ’DIR/G’ ,SUBTEST_CHAR, 
’Q’.QNAME.’.FOTO’); 

END; 

•3*  x  BEGIN 

BOTTOTl  (UHITE); 

PAGE (OUTPUT); 

URITECSave  as  uhich  sample  question?  <1..5>  x  '); 

SELECT  GETCHAR(C1'..’5’] ,  TRUE  .TRUE,  TRUE) ; 

QNAHE  x-  ’  ’; 

QNAMEI1]  x-  SELECT; 

FNAME  x-  CONCAT  C/CATFOTO/’.  SUBTESTCHAR.  ’DIR/G*  ,SUBTEST_CHAT, 
’SQ’.QNAHE.’.FOTO’); 

END; 

•4*  x  BEGIN 

BOTTOM (UHITE); 

PAGE (OUTPUT); 

URITELNCEnter  the  filename  you  wish  to  save  graphics  in.’); 
IffilTELNCYou  may  specify  a  volume  and  you  must  add  a  ".FOTO*  ’); 
URITELNCat  the  end  of  the  filename.’); 

URITELN; 

URITECEnter  filename  t  ’); 

REAOLN(FNAME); 

END; 

END, 

GSAVE(FNAME); 


URITELN; 

URITELN; 

URITELN (’Graphic  pictured  saved  as  ’.FRAME); 
URITELN; 

STALL; 

GRAFIXON; 

HA1NMENU; 

URITE (CHR(28) ) ; 

PREVTRAVEL  x-  FALSE; 

END;  (*  save  «) 
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(*  this  procedure  loads  a  graphics  file  froe  CATDATA:  *> 
(*  this  procedure  is  embedded  in  procedure  edit  *) 

PROCEDURE  LOAOs 
VAR 

QNAME, FNAME  :  STRING; 

SELECT  i  CHAR: 


PROCEDURE  QLOAOs 
BEGIN 

PAGE  (OUTPUT): 

URITE (’Enter  the  i teecode  :  *); 

RE AOLN (QNAME) ; 

FNAME  CONCAT (’/CATFOTO/’ .SUBTESTCHAR, ’DIR/G’ ,SUBTEST_CHAR, 
*Q’ .QNAME, * .FOTO* ) : 

(*•!-«) 

RESET (GTEXT. FNAME); 

(*$I+») 

IF  IORESULT  <>  0  THEN 
BEGIN 

FNAME  CONCAT C /CATFOTO/’ .SUBTESTCHAR. ’DIR/G* ,SUBTEST_CHAR. 
QNAME,  ’  .DATA* ) : 

(*»I-*) 

RESET (GTEXT, FNAME) i 
(*SI+e) 

IF  IORESULT  <>  0  THEN 
BEGIN 
URITELN; 

URITELN  (’No  such  graphics  for  this  question’); 

URITELN; 

STALL; 

GRAFIXON; 

PAGE (OUTPUT); 
aOSE(GTEXT, NORMAL); 

EXIT (LOAD): 

END 

ELSE 

BEGIN 

COMPRESSED  TRUE; 

CLOSE (GTEXT. NORMAL); 

END; 

END 

ass 

BEGIN 

COTPRESSED  FALSE; 
aOSE  (GTEXT,  NORMAL); 

END; 

END;  («  qload  *) 


PROCEDURE  SQLOAO; 

BEGIN 

PAGE (OUTPUT); 

URITECRead  uhich  sanple  question?  <1..5>  i  ’); 

SELECT  GETCHAR(IT..’5’), TRUE, TRUE, TRUE); 

□NAME  ’  ’ ; 

□NAME  (II  SELECT; 

FNAME  CONCAT C/CATFOTO/' .SUBTESTCHAR, ’DIR/G’ .SUBTEST.CHAR, 

’SQ’.QNAME.’.FOTO’); 

(*«I-e) 

RESET (GTEXT, FNAME); 

(«tU«) 

IF  IORESULT  <>  0  THEN 
BEGIN 

FNAME  t-  CONCAT (’ /CATFOTO/’ .SUBTESTCHAR, ’DIR/G* ,SUBTEST_CHAR, 
’SQ’.CWAME.’.OATA’); 

(*•!-*) 

RESET (GTEXT. FNAME); 
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(*SU») 

IF  I0RESULT  <>  0  THEN 
BEGIN 
URITELN; 

UR1TELN; 

URITELNCNo  such  graphics  for  this  sample  question*); 
URITELN; 

STALL; 

GRAFIXON; 

PAGE  (OUTPUT) ; 

CLOSE (GTEXT, NORMAL); 

EXIT  (LOAD); 

EX) 

ELSE 

BEGIN 

COMPRESSED  TRUE; 

CLOSE (GTEXT, NORMAL); 

END; 

END 

ELSE 

BEGIN 

COMPRESSED  s-  FALSE; 

CLOSE (GTEXT. NORMAL); 

END; 

END;  (si  sqload  e) 


PROCEDURE  FLO AO; 

VAR  ZNAME  :  STRING; 

LEAVE  s  BOOLEAN; 

BEGIN 

PAGE (OUTPUT) j 

URITELN (’Enter  the  filename  you  uish  to  read  the  graphics  from.'); 
URITELN (’You  mag  specify  a  volume.*); 

URITELN: 

URITECEnter  filename  t  ’); 

REAOLN (ZNAME); 

IF  POSC.FOTO’. ZNAME)  -  0  THEN 
FNAHE  : -  CONCAT (ZNATE, ’ .FOTO’ ) ; 

(*«I-m) 

RESET (GTEXT.FNAME); 

(sitU*) 

LEAVE  FALSE: 

COTPRESSEO  FALSE; 

IF  I ORE  SUL T  <>  0  THEN 
BEGIN 

COMPRESSED  TRUE; 

IF  (POSC.FOTO’. ZNAME)  -  0)  AND  (POSC.OATA’ .ZNATE)  -  0)  THEN 
BEGIN 

FNAHE  : .  CONCAT (ZNAME. ’ .OATA’ ) ; 

(*•!-*) 

RESET (GTEXT. FNAHE): 

<*iU*> 

IF  IORESULT  <>  0  THEN 
LEAVE  TRUE; 

END 

ELSE 

LEAVE  TRUE; 

END; 

CLOSE (GTEXT. NORMAL): 

IF  LEAVE  THEN 
BEGIN 
URITELN; 
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URITELNCNo  such  graphics  file.*); 
URITELN; 

STALL; 

GRAFIXON; 

PAGE (OUTPUT); 

EXIT (LOAD); 

END 

END;  («  f load  *) 


BEGIN  (*  load  *) 

TEXTON; 

GOTOXY  (0,0) ; 

URI TE (CHR (28) ) ; 

GOTOXY (18,0); 

URI  TEC  READ  GRAPHICS  MENU’); 

GOTOXY (0.4); 

URITEt'Select  one  of  the  follouing  options  by  entering  i 
GOTOXY (IS. 8); 

URITECi.  QUIT1); 

GOTOXY (18.9); 

URI  TEC  2.  READ  SUBTEST  QUESTION’ ); 

GOTOXY (18. 10); 

URI  TEC  3.  READ  SUBTEST  SAMPLE  QUESTION’ ); 

GOTOXY (18, 11); 

URITEC4.  READ  GRAPHICS  FROM  FILENAME’); 

GOTOXY (18. IS); 

URITECEnter  Choice  «  ;  ’); 

SELECT  GETCHAR(C1\. ’4’], TRUE, TRUE, TRUE); 

CASE  SELECT  OF 
'1'  ;  BEGIN 

PAGE (OUTPUT); 

GRAFIXON; 

EXIT (LOAD); 

END; 

*2’  s  QLOAO; 

’3’  ;  SQLOAD; 

’4*  «  FLOAO; 

END; 

GRAFIXON; 

IF  COMPRESSED  TV€N 
BEGIN 

OESTNAME  FNAME; 

DECOOEGRAF; 

END 

ELSE 

GLOAD (FNAME); 

BOTTOM (BLACK); 

URI TE (CHR (28)); 

MA INMENU; 

PREVTRAVEL  FALSE; 

END;  (a  load  *) 


(*  this  procedure  creates  polygons  *) 

(«  this  procedure  is  enbedded  in  procedure  edit  e) 
PROCEDURE  POLYGON; 

VAR 

I  ;  INTEGER; 

SIZE.  NUMSIDES  ;  INTEGER; 


FUNCTION  TANGLE  t  INTEGER; 

(e  this  function  is  enbedded  in  procedure  edit  e) 
BEGIN 

IF  HEADING  <  0  THEN 
TANGLE  360  ♦  TANGLE 
ELSE 

TANGLE  HEADING; 


s  nueber. ’ ) ; 
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PROCEDURE  ROVE (RELD I  STANCE  :  INTEGER); 

(*  this  procedure  is  eabedded  in  procedure  edit  *) 

CONST 

RADCONST  -  S7.29S78; 

BEGIN 

LINETO(ROUNO(XLOC  ♦  2  *  RELO I STANCE  «  COSITANGLE/RADCONST) ) , 
ROUND (YLOC  ♦  RELOI STANCE  *  S1NITANGLE/RAOCONST) ) ) ; 

ENO; 


PROCEDURE  TURNIRELANGLE  :  INTEGER); 

(*  this  procedure  is  embedded  in  procedure  edit  a) 
BEGIN 

HEADING  (HEADING  +  REL ANGLE)  ROO  380; 

ENO; 


BEGIN 

HEADING  0; 

TEXTON; 

URITECUhat  size  polygon  ?  '); 
READLN(SIZE) ; 

URITECHou  many  sides  ?  *); 
READLN (NURSIDES) ; 

GRAFIXON; 

FOR  I  1  TO  NUT1SI0ES  00 
BEGIN 

ROVE (SIZE); 

TURN (360  DIV  NURSIOES); 
ENO; 

PREV TRAVEL  FALSE; 

END;  (a  polygon  «) 


(*  this  procedure  draus  a  line  froa  the  last  point  you  plotted  to  the  *) 
(«  position  you  are  currently  are  on.  e) 

PROCEDURE  DRAU; 

BEGIN 

X2  XLOC; 

Y2  YLOC; 

nOVETOCXl.Yl); 

LINET0(X2,  Y2); 

XI  XLOC; 

Y1  >-  YLOC; 

PREV TRAVEL  FALSE; 

ENO;  (*  draw  «) 


(»  this  procedure  moves  you  to  the  louer  left  hand  part  *) 
(a  of  the  drauing  screen  *) 

(e  this  procedure  is  eabedded  in  procedure  edit  a) 

PROCEDURE  FIND; 

BEGIN 

IF  PREV TRAVEL  -  TRUE  THEN 
BEGIN 

PENCOLOR  (UH I TE ) ; 

DOTAT  (XLOC, YLOC) ; 

PENCOLOR (BLACK); 

END; 

ROVETO(0.32); 

ENO;  (a  find  a) 
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W  I 


(*  this  procedure  allows  gou  to  travel  on  the  screen  without  plotting  *) 
(*  a  point  «) 

(*  this  procedure  is  eebedded  in  procedure  edit  *) 

PROCEDURE  TRAVEL: 

VAR  MOOVALUE  :  INTEGER; 

BEGIN 

XCOORO  XLOC; 

YCOORD  YLOC; 

IF  PREVTRAVEL  THEN 
BEGIN 

If  (NOT  PREVBLACK)  THEN 
BEGIN 

PENCOLOR (UHI TE) ; 

DOTAT (XLOC. YLOC); 

PENCOLOR (BLACK); 

ENO; 

END; 

MODVALUE  VALUE; 

IF  FASTCURSOR  THEN 
MOOVALUE  flOOVALUE  *  8; 

IF  COORO  -  ’X’  THEN 
XCOORO  XCOORO  ♦  MOOVALUE 

ELSE 

YCOORD  YCOORD  +  MOOVALUE; 

IF  XCOORO  >  EAST  THEN 
XCOORO  EAST 
ELSE 

IF  XCOORO  <  UEST  THEN 
XCOORO  UEST; 

IF  YCOORO  »  NORTH  THEN 
YCOORD  NORTH 
ELSE 

IF  YCOORO  <  SOUTH  THEN 
YCOORO  s-  SOUTH; 

MOVETO (XCOORO. YCOORO) ; 

IF  XYCOLOR  -  8  THEN 
PREVBLACK  TRUE 

ELSE 

PREVBLACK  FALSE; 

OOTAT (XCOORO. YCOORO); 

PREV_TRAVEL  TRUE; 

END;  (e  travel  «) 


-  • .  V"  •/ 


V9R 
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(*  FILE  :  G. 1SUBRT. TEXT  *) 

(*  File  last  modified  :  Feb  2S.1983  *) 

(snsmsnxnMssm'sm'SsssMssssssarsscrsms'sssssssJsmessssssMsssm'Mss) 


(*  reads  the  item  text  file  and  displays  the  graphics  *) 
SEGMENT  PROCEDURE  DECODE GRAF; 

VAR  X, 

V. 

XI. Yl. 

CURRPTR, 

CURRBLK, 

OOTCNT  :  INTEGER; 


(«  reads  the  item  text  file  8  displays  item  text  *) 
PROCEDURE  OECOOEPRINT; 

VAR  X. 

V. 

BYTECNT, 

CHARCOGE  :  INTEGER; 


(*  return  the  next  code  in  ascii  file  «) 

FUNCTION  BUFCOOE  :  INTEGER; 

BEGIN 

BUFCOOE  TRIX. ASCI IBUF  ICURRPTR] ; 

CURRPTR  CURRPTR  +  1; 

IF  CURRPTR  >  2047  THEN 

(«  end  of  block/get  next  block  and  reset  byte  ptr  «) 
BEGIN  III 

CURRBLK  i-  CURRBLK  +  4; 

RE ADI TEMBLOCK (CURRBLK) ; 

CURRPTR  0; 

END;  III 

END;  («  bufcode  «) 


BEGIN  (•  decode  print  «) 

(«  read  bytes  from  the  buffer  «) 

REPEAT 

(*  get  char  from  block  buffer  *) 

CHARCOGE  ; •  bufcode; 

CASE  CHARCOOE  OF 

GOTOFLAG  :  BEGIN  (1)  I*  move  cursor  *) 

(a  next  two  bytes  after  flag  are  x,y  coord  «) 
X  «-  BUFCOOE; 

Y  i-  BUFCOOE; 

BYTECNT  :•  BUFCOOE; 

GGOTOXY (X, Y) ; 

END;  111 
END ITEM  :  ; 

END; 

IF  (CHARCOOE  >-  32)  AND  (CHARCOOE  <-  126)  THEN 
GUT  I TECHR ( CHR (CHARCOOE ) ) ; 

UNTIL  CHARCOOE  -  ENOITEM;  (*  until  end  flag  hit  *) 

END;  (m  decodeprint  m) 


BEGIN  (*  decode  graf  *) 


PENCOL OR (BLACK); 

GRAFIXON; 

FILLPORT; 
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READ  I  TENBLOCK  (0)  ; 


CURRBLK  0: 
CURRPTR  0: 

etarttiae  time; 


(*  decode  the  xlines  e) 

REPEAT 

IF  CURRPTR  >  1021  THEN 

(*  end  of  biock/get  neu  block  *) 

BEGIN 

CURRBLK  CURRBLK  +  4j 
READ I TENBLOCK (CURRBLK) ; 

CURRPTR  0: 

END; 

X  TRIX. I TENBUF (CURRPTR) ; 

IF  X  >-  0  THEN 
BEGIN 

Y  TRIX. I TENBUF (CURRPTR  ♦  11; 
riOVETO(X.Y); 

DOTCNT  TRIX.  I TETBUF  [CURRPTR  ♦  2); 
LINEREL(OOTCNT.0) ; 

CURRPTR  CURRPTR  ♦  3; 

END; 

UNTIL  X  <  0; 

CURRPTR  CURRPTR  ♦  1; 

(m  decode  the  glines  «) 

REPEAT 

IF  CURRPTR  >  1021  THEN 

(«  end  of  block/get  neu  block  «) 

BEGIN 

CURRBLK  CURRBLK  ♦  4; 

RE  AO  I  TEfBLOCK  (CURRBLK ) ; 

CURRPTR  0; 

ENO; 

X  TRIX. 1 TENBUF [CURRPTR] ; 

IF  X  >-  0  T)€N 
BEGIN 

Y  i-  TRIX.  I TENBUF  (CURRPTR  +  11; 
NOVETO (X.Y); 

OOTCNT  TRIX. I TENBUF  (CURRPTR  ♦  2J ; 
LINEREL (0, DOTCNT) ; 

CURRPTR  CURRPTR  ♦  3; 

END; 

UNTIL  X  <  0; 

CURRPTR  CURRPTR  +  1; 


(*  decode  the  diagonals  •) 

REPEAT 

IF  CURRPTR  >  1020  TtCN 

(*  end  of  block/get  neu  block  *) 

BEGIN 

CURRBLK  i-  CURRBLK  *  4; 

READ I TENBLOCK (CURRBLK) ; 

CURRPTR  0; 

ENO; 

X  ;■  TRIX. I TENBUF (CURRPTRI; 

IF  X  >-  0  TFEN 
BEGIN 

Y  TRIX. I TENBUF (CURRPTR  ♦  1); 
XI  TRIX. I TENBUF  (CURRPTR  +  21; 

Y1  TRIX. ITENBUF [CURRPTR  +  31; 

NO VETO (X.Y); 

LINETO(Xl.Yl); 

CURRPTR  i-  CURRPTR  +  4; 

ENO: 

UNTIL  X  <  0; 
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CURRPTR  CURRPTR  +  1; 

(«  decode  the  dots  «) 

REPEAT 

IF  CURRPTR  >  1022  THEN 

(e  end  of  block/get  new  block  «) 

BEGIN 

CURRBLK  CURRBU  +  4; 

READ I TEMBLOCK (CURRBLK ) : 

CURRPTR  0; 

END: 

X  TRIX.  ITEMBUF  [CURRPTR] ; 

IF  X  >-  0  THEN 
BEGIN 

Y  TRIX.  I TEMBUF  [CURRPTR  +  11  j 
OOTAT(X.Y): 

CURRPTR  CURRPTR  +  2; 

END; 

UNTIL  X  <  0; 

CURRPTR  CURRPTR  +  1; 

CURRPTR  CURRPTR  e  2: 

OECOOEPRINT; 


end  ties  tine: 

END;  (*  decodegraf  *) 


(*  codes  the  graphics  screen  •) 
SEGMENT  PROCEDURE  CODE SCREEN; 
VAR  X.Y. 

X0.Y0. 

OOTCOUNT, 

I  :  INTEGER: 

OOrC  :  BOOLEAN: 


(s  code  into  buffer  lines  >  1  dot  «) 

PROCEDURE  COOEXLINESj 
BEGIN 

FILLCOLOR (BLACKIj 
PENCOL OR (WHITE); 

GGOTOX Y (0. 21 ) ; 

Gif) I TESTR (’Coding  horizontal  lines  ’): 

FILL COLOR (WHITE); 

PENCOLOR (BLACK): 

(*  start  at  line  zero  of  screen  e) 

Y  TSET: 

REPEAT 

(*  point  to  first  pixel  on  line  *) 

X  i-  LSET; 

REPEAT 

(*  look  for  white  space  *) 

DONE  FALSE; 

REPEAT 

IF  NOT  (GBUFFER IX,  Y) )  T>€N 
X  s-  X  +  1 
ELSE 

DONE  TRUE; 

UNTIL  (X  >  RSET)  OR  (DONE); 

(*  if  the  uhole  line  was  not  blank  *) 

IF  X  <-  RSET  THEN 
BEGIN 


334 
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<«  eave  location  to  move  to  when  decoding  *) 
X0  Xj 

Y0  Y; 


(*  find  out  hou  mang  consecutive  black  dots  «) 
OOTCOUNT  0: 

DONE  FALSE; 

REPEAT 

OOTCOUNT  s-  OOTCOUNT  +  1; 

X  X  +  1; 

I  IF  X  >  RSET  THEN 

DONE  s-  TRUE 
ELSE 

IF  NOT  G8UFFER CX.YJ  THEN 
DONE  TRUE; 

UNTIL  DONE; 


(*  save  information  only  if  more  than  one  dot  *) 

IF  OOTCOUNT  >  1  THEN 
BEGIN 

FOR  I  0  TO  (00TC0UNT-1)  DO 
BEGIN 

OOTAT (X0  +  I.Y0); 

OOTBUFF (X0  ♦  I.Y0]  FALSE; 

END; 

(«  dont  separate  information  over  block  boundaries  m) 

IF  CURRFREEPTR  >  1021  THEN 

BEGIN 

IH I TEI TEnBLOCK (CURRBLOCK) ; 

CURRBLOCX  s-  CURRBLOCX  +  4; 

CURRFREEPTR  0; 

END; 

TRIX. ITEHBUF [CURRFREEPTR1  «-  X0; 

TR1X.  ITEOBUF  [CURRFREEPTR  +.1)  Y0; 

TRIX.  I TEI1BUF  [CURRFREEPTR  +  21  (OOTCOUNT  -  1); 
CURRFREEPTR  CURRFREEPTR  ♦  3; 

END; 

END; 

UNTIL  X  >  RSET; 

(«  point  to  next  line  •) 

Y  Y  -  1; 

(*  until  all  linee  looked  at  *) 

UNTIL  Y  <  BSET; 


(*  dont  separate  information  over  block  boundariee  «) 

IF  CURRFREEPTR  >  1021  T)CN 

BEGIN 

UR I TE I TET8L0CX (CURRBLOCK) ; 

CURRBLOCK  CURRBLOCK  +  4; 

CURRFREEPTR  «-  0; 

END; 

(*  flag  the  end  of  file  a) 

TRIX. I TEHBUF (CURRFREEPTR)  -1; 

CURRFREEPTR  CURRFREEPTR  +  1; 

END;  (*  codex  lines  «) 


(•  code  into  buffer  lines  >  1  dot  *) 
PROCEDURE  COOEYLINES; 

VAR  OGNTDO  :  BOOLEAN; 


PROCEDURE  CHECKLINES; 

VAR  BITS0FF.Y1  ;  INTEGER; 
BEGIN 
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(*  save  information  only  if  more  than  one  dot  m) 
IF  DOTCOUNT  <  2  THEN 
OONTDO  TRUE 
ELSE 
BEGIN 


(m  skip  all  pixels  already  set  by  x  lines  *) 
(*  checking  from  bottom  to  top  «) 

DONE  FALSE; 

Y1  Y0; 

REPEAT 

IF  (DOTBUFF 1X8, Y1 1 )  THEN 
DONE  TRUE 

ELSE 

Yi  Y1  +  1; 

UNTIL  (Yl  >-  (Y0  +  DOTCOUNT))  OR  (DOfsE)  s 

IF  Yl  >-  (Y0  +  DOTCOUNT)  THEN 
DONTDO  TRUE 

ELSE 
BEGIN 

(*  set  the  neu  dot  count  *) 

DOTCOUNT  DOTCOUNT  -  (Yl  -  Y0) ; 

(«  dont  do  if  only  one  dot  «) 

IF  DOTCOUNT  <  2  THEN 
DONTDO  TRUE 

ELSE 
BEGIN 


<*  save  y  marker  for  move  to  location  ») 

Y0  Yl; 

(*  non  look  for  dots  already  set  by  x  lines  from  *) 
(*  top  to  bottom  of  column  «) 

Yl  Y0  +  OOTCOUNT  -  1; 

REPEAT 

IF  (DOTBUFF  1X0, YU)  THEN 
DONE  i-  TRUE 
ELSE 

Yl  Yl  -  1; 

UNTIL  (Yl  <-  Y8)  OR  (DONE); 

IF  Yl  <-  Y0  THEN 
DONTDO  TRUE 
ELSE 
BEGIN 

OOTCOUNT  (Yl  -  Y8)  ♦  1; 


(*  check  the  ration  of  bits  already  on  to  bits  off  *) 

(*  and  drau  line  if  bits  off  »  6  >  M  of  bi ts  to  drau  *) 
BITSOFF  0; 

FOR  Yl  s-  Y0  TO  (Y0  +  DOTCOUNT  -  1)  DO 
IF  DOTBUFF  1X0, Yl)  THEN 
BITSOFF  BITSOFF  ♦  1; 

IF  (BITSOFF  *  6)  <  DOTCOUNT  THEN 
DONTDO  TRUE; 


END; 

END; 

END; 

END; 

END;  (*  checklines  *) 


BEGIN 

PENCOLOR  (UHI TE) ; 

F I LLCOLOR (BLACK ) : 

GGOTOXY (0,21) ; 

GURITESTRC Coding  vertical  lines  '); 
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PENCOLOR (BLACK) j 
FILLCOLOR (WHITE) j 

(*  start  at  line  zero  of  screen  *) 

X  LSETs 
REPEAT 

(*  point  to  first  pixel  on  tine  «) 

Y  BSETt 

REPEAT 

(m  look  for  white  space  *) 

DONE  FALSE: 

REPEAT 

IF  NOT  (GBUFFER  [X,Y])  THEN 

Y  Y  +  1 
ELSE 

DONE  TRUE: 

UNTIL  (Y  >  TSET)  OR  (DONE): 

(«  if  the  whole  line  was  not  blank  *) 

IF  Y  <-  TSET  THEN 
BEGIN 

(*  eave  location  to  move  to  when  decoding  *) 
X0  X; 

Y0  Y: 

(«  find  out  hou  many  consecutive  black  dots  •) 
OOTCOUNT  0; 

DONE  FALSE: 

REPEAT 

OOTCOUNT  OOTCOUNT  ♦  1: 

Y  Y  +  1: 

IF  Y  >  TSET  T)CN 
DONE  TRUE 

ELSE 

IF  NOT  GBUFFER tX.Y]  THEN 
DONE  t-  TRUE: 

UNTIL  DONE: 

OONTDO  FALSE; 

CHECKLINES; 

IF  NOT  OONTDO  THEN 
BEGIN 


FOR  I  0  TO  (00TC0UNT-1)  DO 
BEGIN 

DOTAT (X0, Y0  +1); 

(m  erase  dots  in  buffer  which  uill  be  draun  by  line  «) 
OOTBUFF 1X0, Y0  +  I]  FALSE; 

END; 

(m  dont  separate  information  over  block  boundaries  m) 

IF  CURRFREEPTR  >  1021  THEN 
BEGIN 

UR  I TE I TEM8L0CK (CURRBLOCK ) ; 

CURRBLOCK  :•  CURRBLOCK  +  4; 

CURRFREEPTR  0; 

END; 

TRIX. I TEMBUF (CURRFREEPTR)  X0; 

TR1X. I TEMBUF  [CURRFREEPTR  +  11  Y0; 

TRIX. 1TEHBUF (CURRFREEPTR  +  21  (DOTCOUNT  -  1); 

CURRFREEPTR  CURRFREEPTR  +  3; 

END; 
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<*  point  to  next  line  *) 

X  i-  X  +  1; 

(*  until  all  lines  looked  at  «) 
UNTIL  X  >  RSET; 


(*  dont  seperate  information  over  block  boundaries  m) 

IF  CURRFREEPTR  >  1821  THEN 

BEGIN 

URI TEI TEH8L0CK  (CURR8L0CX) ; 

CURRBLOCK  CURRBLOCK  +  4; 

CURRFREEPTR  0; 

END; 

(«  flag  the  end  of  file  «) 

TRIX. ITEHBUF tCURRFREEPTR)  -1, 

CURRFREEPTR  CURRFREEPTR  ♦  lj 

END;  («  codeg lines  «) 


(«  code  dots  and  diagonals  e) 
PROCEDURE  COOED I AGONALS ; 

VAR  OOTCNT, 

XX.  YY. 

xb.xf, 

YO. YF  :  INTEGER: 
NOnOREDOTS. 

ZAPOOT  i  BOOLEAN; 


(*  check  diagonals  through  quadrants  1  and  3  *) 
PROCEDURE  CHECK13; 

BEGIN 

ZAPOOT  FALSE; 

XX  X; 

YY  Y; 

OOTCNT  0; 

NOOOREOOTS  FALSE; 

REPEAT 

IF  OOTBUFFDOC.YYJ  TTCN 
BEGIN 
XF  XX; 

YF  «-  YY; 

XX  XX  ♦  1; 

YY  YY  +  1; 

OOTCNT  OOTCNT  ♦  1; 

END 

ELSE 

NOnOREDOTS  TRUE; 

UNTIL  (NOnOREDOTS)  OR  (XX  >  RSET)  OR  (YY  >  TSET); 

IF  OOTCNT  >  2  TFEN 
BEGIN 

(«  dont  seperate  information  over  block  boundaries  e) 

IF  CURRFREEPTR  >  1020  THEN 

BEGIN 

UR I TE I TEHBLOCK (CURRBLOCK) ; 

CURRBLOCK  CURRBLOCK  +  4; 

CURRFREEPTR  0; 

END; 

TRIX. I TEHBUF  (CURRFREEPTR]  :«  X; 

TRIX. I TEHBUF  (CURRFREEPTR  +  11  :  -  Y; 

TRIX. I TEHBUF (CURRFREEPTR  +  21  XF; 

TRIX. ITEHBUF (CURRFREEPTR  +  31  YF; 

CURRFREEPTR  CURRFREEPTR  +  4; 

X0  I-  X; 

Y0  Y; 
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BEGIN 


REPEAT 

OOTAT (X0, Y0) j 
DOTBUFF  [X0.Y0]  FALSE: 
X0  i-  X0  +  1: 

Y0  Y0  +  1; 

UNTIL  X8  >  XF; 


ZAPOOT  TRUE: 
ENO; 

END:  (*  checkl3  *) 


(*  check  diagonals  through  quadrants  2  and  4  *) 
PROCEDURE  CHECK24; 

BEGIN 

DOTBUFF  [X,  YJ  TRUE; 

XX  X; 

YY  Y; 

DOTCNT  0; 

NOnOREDOTS  FALSE; 

REPEAT 

IF  DOTBUFF  tXX, YY]  THEN 
BEGIN 
XF  XX; 

YF  x-  YY; 

XX  XX  +  1; 

YY  YY  -  1; 

DOTCNT  DOTCNT  +  1; 

END 

ELSE 

NOHOREDOTS  TRUE; 

UNTIL  (NOMOREDOTS)  OR  (XX  >  RSET)  OR  (YY  <  BSET); 

IF  DOTCNT  >  3  THEN 
BEGIN 

(*  dont  asperate  information  over  block  boundaries  •) 

IF  CURRFREEPTR  >  1020  THEN 

BEGIN 

URI TEITEHBLOCK  (CURR8L0CK) ; 

ClIRRBLOCK  CURRBLOCK  +  4; 

CURRFREEPTR  0; 

ENO; 

TRIX. I TEMBUF [CURRFREEPTR]  X; 

TRIX. I TEHBUF  (CURRFREEPTR  +  11  Y; 

TRIX.ITEHBUF [CURRFREEPTR  +  21  t-  XF; 

TRIX. I TEHBUF (CURRFREEPTR  +31  YF; 

CURRFREEPTR  CURRFREEPTR  ♦  4; 


X0  i.  X; 

Y0  Y; 

REPEAT; 

OOTAT (X0.Y8); 

DOTBUFF  [X0.Y0]  «-  FALSE; 
X0  X0  +  1; 

Y0  Y0  -  1; 

UNTIL  X0  >  XF; 


ENO; 

IF  ZAPOOT  THEN 
DOTBUFF  (X.YI  FALSE; 


END;  (*  check24  ») 
(*  coded i agona I  a  *) 


PENCOLOR  (UHI TE) ; 

F I LLCOLOR (BLACK ) ; 
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GGOTOXY(0,21) : 

GURlTESTRt ’Coding  diagonal  lines 
FILLCOLOR (UHI TE) : 

PENCOLOR (BLACK); 


ZAPOOT  FALSE: 

FOR  X  LSET  TO  RSET  DO 
FOR  Y  BSET  TO  TSET  DO 
BEGIN 

IF  DOTBUFF IX, Y3  THEN 
BEGIN 
CHECX13; 

CHECK24: 

END; 

END; 

(*  dont  seperate  information  over  block  boundaries  *) 

IF  CURRFREEPTR  >  1020  THEN 

BEGIN 

UR I TE I TEMBLOCK (CURRBLOCK ) ; 

CURRBLOCX  CURRBLOCK  +  4j 
CURRFREEPTR  0; 

END: 

(*  flag  the  end  of  file  «) 

TR1X. ITEHBUF ICURRFREEPTR1  : -  -1 ; 

CURRFREEPTR  CURRFREEPTR  ♦  1: 

EM);  (*  code  diagonals  *) 


BEGIN  (*  codescreen  *) 

CURRBLOCK  0; 

CURRFREEPTR  0; 

PENCOLOR (BLACK) j 

COGEXLINES; 

COOEYLINES: 

COOED I AGONAL S : 

FILLCOLOR (BLACK): 

PENCOLOR (UHI TE) ; 

GGOTOXY (0,21): 

GUR I TESTR(* Coding  dote  ’ ) : 

FILLCOLOR (UNITE): 

PENCOLOR (BLACK): 

(«  code  the  rest  of  the  dots  *) 

FOR  X  LSET  TO  RSET  DO 
FOR  Y  :-  BSET  TO  TSET  DO 
BEGIN 

IF  DOTBUFF [X.Y]  THEN 
BEGIN 

(»  dont  eeperate  information  over  block  boundaries  «) 

IF  CURRFREEPTR  >  1022  THEN 

BEGIN 

UR I TE I TEHBLOCK (CURRBLOCK ) : 

CURRBLOCK  CURRBLOCK  +  4: 

CURRFREEPTR  0; 

END: 

TRIX. I TEflBUF (CURRFREEPTR]  X; 

TRIX. I TE08UF  [CURRFREEPTR  +  1)  Y: 

CURRFREEPTR  CURRFREEPTR  +  2: 

DOTAT (X, Y) : 
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(s  dont  seperata  information  over  block  boundaries  *) 

IF  CURRFREEPTR  >  1022  THEN 

BEGIN 

URITEITETBLOCKICURRBLKK); 

CURR BLOCK  CURRBLOCK  +  4; 

CURRFREEPTR  0; 

END; 


(a  flag  the  end  of  file  a) 

TRIX. I TEMBUF [CURRFREEPTR)  i-  -lj 

CURRFREEPTR  CURRFREEPTR  ♦  lj 

(*  adjust  pointer  for  ascii  buffer  *) 

CURRFREEPTR  CURRFREEPTR  *  2; 

(«  dont  seperata  information  over  block  boundaries  a) 

IF  CURRFREEPTR  >  2047  THEN 

BEGIN 

URITEITEMBLOCK (CURRBLOCK); 

CURRBLOCK  CURRBLOCK  ♦  4| 

CURRFREEPTR  !-  0; 

END; 

END;  (a  codescreen  a) 


(a  codes  the  screen  array  into  coapact  block  buffer  and  urites  it  to  disk,  a) 
SEGMENT  PROCEDURE  COOETEXT; 

VAR  X0. 

CHARCOOE.X.Y.I. 

BLOCK. 

BYTE. 

BYTECOUNT  t  INTEGER; 

DONE  ;  BOOLEAN; 

( . I 

(a  fill  buffer  with  ascii  8  codes,  urite  to  disk  a) 

PROCEDURE  FILLI TEHBUFFER (BUFFCOOE  ;  INTEGER); 

BEGIN 

TRIX. ASCI IBUF  [CURRFREEPTR!  t-  BUFFCOOE; 

CURRFREEPTR  CURRFREEPTR  ♦  1; 

IF  CURRFREEPTR  -  2048  THEN 
BEGIN  (1) 

URI TEI TEMBLOCK (CURRBLOCK) ; 

CURRBLOCK  CURRBLOCK  ♦  4; 

CURRFREEPTR  ;.  0; 

END;  ID 

END;  (a  f i 1 1 i teabuf far  a) 


I . . I 

BEGIN  (a  codeacreen  a) 

(a  display  aessage  a) 

TEXTON; 

WITE(CHR<28>); 

GOTOXY(l.l); 

URITEI’Entering  text*); 

(a  start  at  line  0  of  screen  buffer  a) 

Y  i-  0; 

REPEAT 

(a  point  to  firet  character  on  line  a) 

X  ;-  0; 

URITEI’.’); 

(a  look  for  leading  blanks  a) 

DONE  ;•  FALSE; 

REPEAT 


341 
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IF  SCREEN tX.YI  -  CHR (SPACE) 

Tf€N 

X  ;-  X  «■  1 

ELSE 

DONE  TRUEs 

UNTIL  (X  >  X SCREEN)  OR  (OONE)| 

(«  if  the  whole  line  uas  not  blank  *) 

IF  X  <-  X SCREEN  THEN 
BEGIN  III 

(a  flag  a  gotoxy  where  first  non-blank  character  begins  *) 
F I LL I TEM8UFFER  (GOTOFLAG)  ; 

FILLITEHBUFFERIX); 

FILLITEnBUFFER(Y) j 
BYTECOUNT  0; 

(*  figure  out  how  eany  bytes  on  this  line  a) 

X0  X; 

REPEAT 
I  X0t 
DONE  i.  FALSE; 

REPEAT 

IF  SCREEN!!  ,YI  -  CHR  (SPACE) 

THEN 

I  t-  I  ♦  1 

ELSE 

DONE  TRUE; 

UNTIL  (I  >  X SCREEN)  OR  (DONE); 

IF  I  <  X SCREEN  TEEN 
BEGIN  (2) 

BYTECOUNT  BYTECOUNT  +  1; 

X0  X0  ♦  1; 

DONE  FALSE; 

END  (2) 

ELSE 

DONE  TRUE; 

UNTIL  (DOC)  OR  (X0  >  X SCREEN) ; 

FILLlTEIttUFFER (BYTECOUNT) , 

REPEAT 

(a  look  for  trailing  blanks  *) 

I  l-  X; 

DONE  FALSE; 

REPEAT 

IF  SCREEN!  I,  Y)  -  OB  (SPACE) 

THEN 

I  I  +  1 

ELSE 

DONE  TRUE; 

UNTIL  (I  >  XSCREEN)  OR  (DONE); 

(a  if  the  rest  of  the  line  uas  not  all  blanks  a) 

IF  I  <  XSCREEN  T)CN 
BEGIN  (3) 

(a  save  the  character  in  the  block  buffer  a) 

F I  LL  I  TEfWJFFER  (Of®  (SCREEN  [X,  Y1 ) ) ; 

(a  set  pointer  to  next  character  a) 

X  s-  X  +  1; 

(a  set  loop  condition  to  process  nsxt  character  a) 
DONE  i-  FALSE; 

END  131 
ELSE 


*  %  ■  - -  .  *  .  •  X.  .  -  . -  .  ■  .  -  .  ■  .  -  .  - 
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(*  done  uith  this  line,  go  look  at  next  line  in  screen  buffer  «) 
DONE  TRUE: 

(*  until  done  uith  line  or  last  character  in  line  processed  *) 

UNTIL  (DONE)  OR  (X  >  XSCREEN) : 

END;  111 

(a  point  to  next  line  *) 

Y  Y  +  1; 

(*  until  all  lines  looked  at  «) 

UNTIL  Y  >-  YSCREEN; 

(*  flag  end  of  question  text  a) 

FILL I TEMBUFFER (ENDI TEM) ; 

(a  urite  the  last  block  of  ascii  to  file  a) 

UR I TE I TEMBLOCK (CURRBLOCK ) : 

GRAFIXON; 

END;  (a  codescreen  a) 


I . . - . . . - . . ) 

(e  fills  an  arrag  representing  the  crt  uith  char  screen  location  aag  be  e) 


(•  specified  this  is  the  guts  of  the  question  text  editor  «) 
SEGMENT  PROCEDURE  F I LLSCREENBUFFER  (UPBOUND , RI GHTBOUNO , 

LOBOUNO , LEF TBOUND  :  INTEGER; 
FLUSHBUF  :  BOOLEAN): 

VAR  SCREENCHAR  :  CHAR; 

CHARACTERS. 

CONTROLCHAR  :  SETOFCHAR; 

SCREENBYTES. 

CHARCOOE. 

X. 

Y. 

L  «  INTEGER: 

BEGIN 

CHARACTERS  (Ofl  (32). .CHR (126)1 : 

(«  set  U  of  bgtee  in  screen  character  buffer  e) 

SCREENBYTES  (XSCREEN  ♦  1)  «  (YSCREEN  +  1): 

(•  if  uish  to  start  uith  a  blank  buffer,  neu  text  a) 

(*  clear  screen  «) 

F I LLCHAR (SCREEN (0). SCREENBYTES,'  '>: 

(e  put  cursor  in  upper  left  hand  corner  a) 

X  «-  LEFTBOUND: 

Y  UPBOUND: 

(a  dont  give  aultiple  page  option  to  graphic*  a) 

CONTROLCHAR  I-  [CHR (UP)  ,CHR (DOUN)  .CHR(LARROU)  .OfHRARROU) , 
CHR<ETX),CHR(RETH; 

PENCOLOR (UHI TE) : 

F I LLCOLOR (BLACK ) : 

GGOTOXY (0,20) : 

FOR  L  1  TO  R I GH TBOUND  DO 
GURITECHR (’-’): 

GGOTOXY (1,21): 

GURI TESTRCEnter  krunched  text.  Use  arrous  to  aove  cursor.*): 
GGOTOXY (1,22); 

GUR I TESTR ( ’ <RET > : nex t  line.*): 

GGOTOXY (1,23); 

GURI TESTR (*<CTRL>-C  to  quit  and  save’); 

PENCOLOR  (BLACK) ; 

FI LLCOLOR (UHI TE) : 


343 


’  A.* 
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(*  fill  up  the  screen  character  Puffer  until  done  «) 

REPEAT 

(«  monitor  cursor  location  *) 

GGOTOXY(X.Y): 

F I LLCOLOR (BLACK ) : 

VIEWPORT (XLOC, XLOC+6. YLOC-7, YLOC) : 

FILLPORTj 

{*  get  a  character  from  the  keyboard  *) 

SCREENCHAR  GETCHAR (CHARACTERS  ♦  CONTROLCHAR, TRUE, TRUE, TRUE) : 

(«  delete  the  graphics  cursor  *) 

FI LLCOLOR (UH I TE) 5 
FILLPORTj 

IF  NOT  (SCREENCHAR  IN  CHARACTERS)  THEN 
GURI TECHR (SCREEN  IX, Y] ) ; 

(«  get  the  ascii  value  «) 

CHARCOOE  ORO (SCREENCHAR ) j 

(m  check  for  cursor  control  characters  «) 

CASE  CHARCOOE  OF 

(*  cursor  moved  up  but  not  beyond  set  boundaries  *) 

UP  :  IF  Y  <-  UPBOUNO 
THEN 

SOU AUK 

ELSE 

Y  Y  -  lj 

(*  cursor  moved  doun  but  not  beyond  set  boundaries  *) 

DOUN  :  IF  Y  >-  L060UND 
THEN 

SQUAIK 

ELSE 

Y  Y  +  lj 

(*  cursor  moved  to  left  uith  auto  urap  around  •) 

LARROU  :  IF  X  <-  LEFTBOUO  T>€N 
BEGIN  (3) 

IF  Y  <-  UPBOUND 
THEN 

SQUAIK 

ELSE 

BEGIN  (4) 

X  1-  RIGHTBOUTCj 
Y  Y  -  lj 
END;  (4) 

END  (3) 

ELSE 

X  X  -  1; 

(«  cursor  moved  to  right  uith  auto  uraparound  *) 

RARROU  :  IF  X  >-  RIGHTBOUNO  T)CN 
BEGIN  (S) 

IF  Y  >-  LOBOUNO 
THEN 

SQUAUK 

ELSE 

BEGIN  (G) 

Y  Y  +  1; 

X  LEFTBOUNO; 

END:  (6) 

END  (5) 

ELSE 

X  X  +  1: 

(»  carriage  return  *) 

RET  :  IF  Y  >-  LOBOUND 
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ELSE 

BEGIN  (7) 

Y  t-  Y  ♦  li 
X  »-  LEFTBOUNOj 
END;  (71 

END:  (s  cases  s) 

(*  if  character  typed  uas  a  visible  character  *) 

IF  (CHARCOOE  >-  32)  AND  (CHARCOOE  <-  126)  T)€N 
BEGIN  (10) 

(*  if  last  character  exceeded  screen  boundaries  *) 
IF  (X  >  RIGHT BOUND)  AND  (Y  >-  L080UN0) 

DEN 

SQUAUX 

ELSE 

BEGIN  (11) 

(«  save  the  character  in  the  screen  buffer  •) 
SCREEN  IX. Y]  SCREE NCHARj 

(e  urite  character  to  screen  if  graphics  •) 
GURI TECHR (CHR (CHARCOOE )) t 

(*  eove  cursor  over  one  *) 

X  s-  X  ♦  1< 

(at  check  auto  urap  around  *) 

IF  X  >  RIGHT  BOUND  TEEN 
BEGIN  (12) 

IF  Y  <  LOBOUNO  THEN 
BEGIN  (13) 

X  i-  LEFTBOUNDj 
Y  i.  Y  ♦  li 
END  (131 
ELSE 

X  >.  X  -  It 
END;  (12) 

ENDt  (11) 

E)C  i  (101 

(«  until  control-c  pressed  «) 

UNTIL  CHARCOOE  -  ETX; 

(«  restore  the  viewport  si) 

VIEUPORT (0,559,32, 191) ; 


ENDt  (•  f  i  1 1  screenbuf  fer  si) 
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(sssseaasasMMSSirrrssssssssssMTMsssMssssassrMtstMSfuMuM) 

(*  File  :  G.2SUBRT. TEXT  *) 

(*  Last  Modified  :  Feb  28,  1983  *) 


(«  draws  the  top  border  if  user  wishes  to  krunch  subset  of  picture  *) 
SEGMENT  PROCEDURE  THANOLER; 

BEGIN 

(*  save  the  location  cursor  was  at  e) 

OLDX  XLOC: 

OLDY  YLOC; 

(*  if  cursor  location  is  above  the  bottoe  border  then  it  is  ok  s) 

IF  YLOC  >  BSET  TEEN 
BEGIN 

(*  erase  old  top  set  *) 

IF  T  THEN 
BEGIN 

FOR  I  LEST  TO  EAST  00 
BEGIN 

IF  TL1NE III  TVEN 
PENCOLOR (BLACK) 

ELSE 

PENCOLOR  (ltd  TE)  j 
OOTATU.TSET); 

END: 

ENDj 

(«  draw  the  new  top  border  and  flag  that  border  has  been  set  e) 

T  TRUE: 

PENCOLOR (BLACK): 

PREVBLACK  TRUE; 

TSET  OLOY: 

FOR  I  l€ST  TO  EAST  00 

BEGIN 

MOVETO(I.TSET); 

(*  save  the  original  screenline  where  border  overwrites  it  «) 

IF  XYCOLOR  -  0  THEN 
TLINEtl)  TRUE 
ELSE 

TLINECI1  FALSE; 

IF  (I  >-  LSET)  AM)  (I  <-  RSET)  THEN 
OOTAT(I.TSET): 

END; 

(*  erase  where  original  cursor  was  *) 

TLINE I0L0X]  FALSE; 

(«  if  the  left  border  was  set,  adjust  it  so  it  Meets  with  top  border  s) 

IF  L  THEN 

BEGIN 

MOVETO (LSET. SOUTH); 

PENCOLOR (l*(I  TE) ; 

LINETO  (LSET,  BSET); 

PENCOLOR (BLACK ) : 

LINETO  (LSET,  TSET); 

PENCOLOR (UHITE); 

LINETO (LSET, NORTH); 

END; 

(e  if  the  right  border  was  set,  adjust  it  *) 

IF  R  THEN 
BEGIN 

MOVETO  (RSET,  SOUTH); 

PENCOLOR (UHITE); 

LINETO  (RSET. BSET); 

PENCOLOR (BLACK); 
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LINETO (RSET, TSET); 

PENCOLOR (WHITE) j 
UNETO  (RSET, NORTH) ; 

END: 

(a  restore  cursor  to  original  location  a) 
PENCOLOR  (BLACK); 

HOVETO(OLOX.OLOY): 

END: 

END:  (•  thandler  *) 


(«  set  the  bottom  border  of  area  of  graphics  screen  to  compress  *) 
SEGMENT  PROCEDURE  BH ANGLER: 

BEGIN 

(«  save  current  cursor  location  a) 

OLOX  XLOC: 

OLOY  :.  YLOC: 

(a  if  cursor  is  belou  the  top  border  then  ok  *) 

IF  YLOC  <  TSET  TEEN 
BEGIN 

(a  erase  old  bottom  set  if  previously  set  «) 

IF  B  THEN 
BEGIN 

(a  restore  uhat  screen  uas  before  *) 

FOR  I  :-  I4EST  TO  EAST  00 
BEGIN 

IF  BLINECII  THEN 
PENCOLOR (BLACK) 

asE 

PENCOLOR (UHI TE); 

DOTAT(I.BSET): 

END: 

END: 

B  :-  TRUE;  (s  flag  that  bottom  uas  set  *) 

(*  draw  neu  bottom  border  uhi Is  saving  original  ecreen  *) 
PREVBLACK  :-  TRUE: 

PENCOLOR (BLACK); 

BSET  OLOY; 

FOR  I  :-  UEST  TO  EAST  DO 

DrpTy 

MOVETO(I.BSET); 

IF  XYCOLOR  -  0  THEN 
BLINE(I)  TRUE 
asE 

BLINEIU  t-  FALSE; 

IF  (I  >-  LSET)  AND  (I  <-  RSET)  THEN 
DOT AT (I, BSET); 

END: 

BLINE  (0LDX)  :-  FALSE; 

(a  adjust  bottom  border  if  left  or  right  borders  uere  set  a) 

IF  L  THEN 
BEGIN 

tlOVETO  (LSET,  SOUTH); 

PENCOLOR (WHITE) ; 

LIMETO  (LSET. BSET); 

PENCOLOR (BLACK); 

LINETO (LSET, TSET); 

PENCXOR  (UHI  TE) ; 

LINETO (LSET, NOR TH); 

END; 

(a  if  right  border  was  set  a) 

IF  R  THEN 
BEGIN 

MOVETO (RSET, SOUTH); 
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PENCOLOR (WHITE) j 
LINETO  (RSET,  BSET) : 
PENCOLOR (BLACK): 
LUCTQ  (RSET,  TSET)  ; 
PENCOLOR (UH I TE); 
LIhCTO  (RSET, NORTH) ; 
END; 

PENCOLOR (BLACK): 
MOVETO(OLDX.OLOY) : 
END: 

END:  («  bhandler  *) 


(*  set  the  left  border  of  area  to  coepress  e) 

SEGMENT  PROCEDURE  LHANDLER; 

BEGIN 

(«  save  old  cursor  locations  e) 

OLOX  XLOC; 

OLOY  YLOC: 

(«  if  current  position  is  to  the  left  of  the  right  border  then  ok  *) 

IF  XLOC  <  RSET  THEN 

BEGIN 

(*  erase  old  left  set  *) 

IF  L  THEN 
BEGIN 

FOR  1  t-  SOUTH  TO  NORTH  00 
BEGIN 

IF  LLINECII  THEN 
PENCOLOR (BLACK) 

ELSE 

PENCOLOR (UHITE)j 
DOTAT(LSET.I): 

EM): 

END: 

(«  draw  the  new  border  *) 

L  «-  TRUE: 

PREVBLACK  TRUE; 

PENCOLOR (BLACK): 

LSET  i-  OLDX; 

FOR  I  «-  SOUTH  TO  NORTH  00 
BEGIN 

naVETOlLSET.l): 

IF  XYCOLOR  -  0  THEN 
LLINEIII  :-  TRUE 
ELSE 

LLINEIII  FALSE; 

IF  (I  >-  BSET)  AND  (I  <-  TSET)  T)€N 
OOTAT(LSET.I): 

END: 

LL1NE10L0Y)  FALSE: 

(«  adjust  border  if  top  or  bottoa  was  set  *) 

IF  T  THEN 
BEGIN 

MOVETOOJEST,  TSET) ; 

PENCOLOR ( UH I TE): 

LINETO  (LSET,  TSET); 

PENCOLOR  (BLACK): 

LIMETO  (RSET,  TSET); 

PENCOLOR (UH! TE) : 

LINETO (EAST, TSET); 

END; 

IF  B  THEN 
BEGIN 

HOVETO (UEST.BSET) ; 

PENCOLOR (UHITE): 
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LINETO (LSET, BSET)  j 
PENCOLOR (BLACK) j 
LINETO(RSET.BSET) t 
PENCOLOR (UHITE)t 
LINETO  (EAST,  BSET)  t 

ENOt 

PENCOLOR (BLACK) ; 
MOVETO(OLOX.OLDY)| 
ENOt 

ENOt  (*  I handler  s) 


(s  set  the  right  border  of  area  to  be  compressed  m) 

SEGMENT  PROCEDURE  RHANDLERj 

BEGIN 

OLOX  XLOCt 
OLOY  «-  YLOCt 
IF  XLOC  >  LSET  THEN 
BEGIN 

(«  erase  old  right  *) 

IF  R  THEN 
BEGIN 

FOR  I  t-  SOUTH  TO  NORTH  DO 
BEGIN 

IF  RLINE (I)  THEN 
PENCOLOR (BLACK) 

ELSE 

PENCOLOR (UNITE) t 
DOTAT (RSET.I)t 


R  TRUE; 

PENCOLOR (BLACK) t 
PREVBLACK  «-  TRUEt 
RSET  t.  OLDXt 

FOR  I  t-  SOUTH  TO  NORTH  DO 
BEGIN 

MOVETOCRSET.Dt 
IF  XYCOLOR  -  0  THEN 
RLINE  (I)  i.  TRUE 
ELSE 

RLINE  III  i-  FALSEt 

IF  (1  >-  BSET)  AND  (I  <-  TSET)  T)€N 
OOTAT(RSET, 1 ) t 

END: 

RLINE  (OLOY]  i.  FALSEt 

IF  T  TV€N 
BEGIN 

nOVETOftCST,TSET)t 
PENCOLOR (UHITE)t 
LINETO  (LSET.  TSET)  t 
PENCOLOR (BLACK) t 
LlfCTO  (RSET,  TSET)  t 
PENCOLOR  (1H I TE)  t 
LlfCTO  (EAST,  TSET)  t 
ENOt 

IF  B  THEN 
BEGIN 

HOVE TO (UEST, BSET) t 
PENCOLOR (UHI TE) t 
LINETO  (LSET, BSET)  t 
PENCOLOR (BLACK) t 
LINETO  (RSET, BSET)} 

PENCOLOR (UHI TE)t 
LINETO (EAST, BSET) t 
ENOt 

PENCOLOR (BLACK) t 
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nOVETOtOLOX.OLOY) j 
END-, 

END;  («  r handler  *) 


(«  krunch  a  fotofile  *) 

SEGUE  NT  PROCEDURE  KRUNCH-. 

VAR  AGAIN  :  CHAR; 

(«  get  the  filename  to  be  compressed  «) 
SEGMENT  PROCEDURE  GETCFILE; 

VAR  QNAME  ;  STRING; 

SELECT  :  CHAR; 


PROCEDURE  CHECKIT; 

BEGIN 
(*S1  -«) 

RESET (GTEXT.OESTNAME); 

(*tI+«) 

IP  I  ORE  SUL  T  -  0  T)€N 
BEGIN 
URITELN: 

WRITE ('Destroy  old  '.DESTNAnE,*  ?  Y/N  ;  *); 

IF  GETCHARd'YVNVyVn’]. TRUE. TRUE. TRUE)  IN  I'Y’.'y'J  THEN 
BEGIN 

CLOSE (GTEXT, PURGE) ; 

REURITE (GTEXT.OESTNAME); 

END 

ELSE 

8EGIN 

CLOSE (GTEXT. NORMAL); 

GRAFIXON; 

EXIT (KRUNCH); 

END; 

END 

ELSE 

BEGIN 

(*>!-«) 

REURITE (GTEXT.OESTNAME); 

(*fl+*l 

IF  I  ORE SUL T  <>  0  THEN 
BEGIN 
URITELN; 

URITECCannot  open  ’  .DESTNAfC, ’  Press  <RET>  '); 

IF  GETCHAR ( (OF  (RET)  I ,  TRUE,  TRUE,  TRUE)  -  CHR(RET)  THEN 
BEGIN 
GRAFIXON: 

EXIT (KRUNCH); 

END; 

END; 

END; 

END:  («  check  it  *) 


BEGIN 

IF  PREVTRAVEL  THEN 
BEGIN 

PENCOLOR (UHI TE) ; 
OOTAT  (XLOC,  YLOC) ; 
PENCOLOR (BLACK); 
ENO; 


TEXTON; 

GOTOXY  (8,0) ; 

URITE  (CHRI28)); 

GOTOXY (18,0); 

URITE (’KRUNCH  GRAPHICS  MENU'); 
GOTOXY(0,4); 


(*  eliainate  travel  dot  «) 


fn£S5S5S§ 
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CLEARBOTTOfl; 

GGOTOXY (26,28)  i 

GURITESTRCSET  (CRUNCH  BOROERS’); 

FILLCOLOR  (BLACIC)  ; 

PENCOLOR (UHI TE) ; 

GGOTOXY (0. 21 )j 
GURI  TESTR( 

*  T)op  BJottom  Deft 

GGOTOXY (0. 22) j 
GURITESTR( 

*F)aet  cursor  NJoreal  cursor’)? 

GGOTOXY (0.23); 

GURITESTRl 

*<arrous  eove  cursor>  <cntrl>-C  to  accept'); 


NOVETO(0, SOUTH) ; 

REPEAT 

CH  s-  GETCHAR(  C’F'.’N’.'T’.’B’.’L’.  *R’ , 

*4*  *1^*  *  *  *  *J*  fpi 

CHR(LARROU)  icHR(RARROU)  !o«(UP)  .CHR  (OOUN) , 
CHR (E  TX )], TRUE . FALSE . TRUE ) ; 

CASE  CH  OF 

(e  set  area  to  be  coepressed  options  ») 

•T’.’t’  t  THANOLER; 

’B’.’b’  x  BHANOLER; 

’L* , *  I  *  ;  LHANOLER; 

•R'.V  x  RHANOLER; 

•F'.'f  :  FASTCURSOR  TRUE; 

*N* , *n*  x  FASTCURSOR  s-  FALSE; 


OTtCRUISE 

(*  just  eoves  cursor,  doesnt  erase  anything  *) 
IF  (CH  -  CHR (8) )  THEN 
TRAVEL  CX’.-l) 

asE 

IF  (CH  -  CHR  (21) )  THEN 
TRAVaCX*.  1) 

asE 

IF  (CH  -  CHR  (ID)  TVEN 
TRAVaCY’,  1) 
asE 

IF  (CH  -  CHR (10) )  THEN 
TRAVaCY’. -1); 

END; 

UNTIL  ORD(CH)  -  ETX; 

PENCOLOR (BLACK); 

FILLCOLOR(UHITE) ; 

(«  signal  that  crunching  has  begun  •) 

CLEARBOTTOT; 

FILLCOLOR (BLACK); 

PENCOLOR (UHI TE); 

GGOTOXY (0,21); 

GURITESTR( 

*  (Crunching  Fotofi  Is’ ) ; 

PENCOLOR (BLACK) ; 

FILLCOLOR (UHI TE); 


(*  adjust  the  boundaries  of  area  set  by  user  to  get  all  that  i 
LSET  LSET  +  1; 

YSET  t-  TSET  -  1; 

RSET  RSET  -  1; 

BSET  x.  BSET  ♦  1; 


(*  fill  up  dot  buffer  of  uhat  is  exactly  on  the  screen  *) 
PENCOLOR (UHI TE); 


R) ight* ) ; 


in'  ids  *) 
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FOR  X  LSET  TO  RSET  00 
BEGIN 

FOR  Y  BSET  TO  TSET  00 
BEGIN 

MOVETO(X.Y); 

G8UFFER IX, YI  (XYCOLOR  -  0): 

OOTAT  (X,  Y) ; 

END: 

END; 

OOTBUFF  G8UFFER; 

(*  crunch  the  screen  into  neu  format  s) 

COOESCREEN; 

(*  signal  crunching  is  done  ,  give  main  menu  back  *) 

VIEUPORT (LSET.RSET. BSET, TSET) ; 

F I LLCOLOR (BLACK ) j 
CLEAR80TT0M; 

PENCOLOR (UNITE); 

FILLCOLOR (BLACK); 

GGOTOXY (0, 21 ) : 

GURITESTRCKrunching  is  completed.  Press  <RET>  to  continue  ’): 
REAOLN: 

PENCOLOR (BLACK); 

F I LLCOLOR (BLACK ) ; 

CLEARBOTTOTI; 

F I LLSCREENBUFFER (0. 78 . 20, 0. TRUE ) : 

COOETEXT; 

OECOOEGRAF; 

CLEARBOTTOTI; 

GGOTOXY (0.20); 

FI LLCOLOR (BLACK); 

PENCOLOR (UHITE); 

GURITESTRC  Press  <RET>  to  continue.’); 

FILLCOLOR  (UHITE) ; 

PENCOLOR (BLACK) ; 

REAOLN; 

texton; 

ur  i  te  (chr  (28) ) ; 

elasped  : -  starttime  -  endtime; 
if  elasped  <  0  then 
elasped  : -  -  elasped: 

gotoxy(0,0) ; 

uri telnl’Time  :  elasped,’  seconds’): 

ur i te I n; 

uritel’Press  <RET>’); 

if  getchar  ((chr  (ret)  J,  true,  true,  true)  -  chr  (ret)  then 
graf ixon; 

FtA  INTEND; 

END;  (*  compress  s) 


(*  lists  the  tests  in  directory  8  loads  •) 
SEGMENT  PROCEDURE  LOAOTEST (MESSAGE  «  STRING); 
VAR  Q. 

TESTNUH. 

RECNUM  t  INTEGER: 

OKTEST  :  BOOLEAN; 

TEXTCOOE  ;  CHAR; 


(•  lists  the  directory  test  names  to  the  screen  s) 
PROCEDURE  LISTTESTS; 

VAR  I.J.K.ITEMCOUNT  t  INTEGER; 

BEGIN 

PAGE (OUTPUT ) ; 

GOTOXY(16,0); 
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WITH  ('GRAPHICS  MANAGER  LIST  OP  SU0TESTS  *  .VERSION)  ; 
I  :  •  0: 

J  0: 

GOTOXY (0,3) s 
REPEAT 

IF  NOT  (01RINF0CI1  .NOTUSED)  THEN 
BEGIN 

J  : •  J  +  1; 

IF  J  <-  10  THEN 
GOTOXY (0,2+J) 

ELSE 

GOTOXY (40, 2+J-10) s 
URITEU.’.  ’ .DIRINFOIII  .TNAME) : 

END; 

I  S-  I  +  Is 

UNTIL  I  >  HAXSUBTESTS; 

END;  (*  I i attests  «) 


lV 


BEGIN  (at  load  teat  *) 

TEXTON; 

OK TEST  FALSE; 

LISTTESTS; 

RESET (FILEDIRECTORY, I  NOEXNAME) ; 

REPEAT 

GOTOXY (0,15); 

URITELN ( 

’INSTRUCTIONS  :  Enter  choice  0,  then  press  <RET>.’); 
URITEI 

’  To  escape,  press  0  then  <RET>.’); 

GOTOXY (0,18); 

URITE (MESSAGE); 

(sfl-e) 

REAOLN(TESTNUM) ; 

(**!♦») 

IF  TESTNUM  -  0  THEN 
BEGIN 

ESCPROC  TRUE; 

CLOSE  IFILEOIRECTORY.LOCK) ; 

EXIT (LOAOTEST) j 
END; 

IF  (TESTNUM  <  0)  OR  (TESTNUM  >  (HAXSUBTESTS+1 ) ) 
BEGIN 
URITELN; 

URITELNC  Invalid  test  0  :  ’.TESTNUM); 

SQUAWK ; 

URITELN; 

STALL; 

EM) 

ELSE 

BEGIN 

RECNUM  0; 

Q  l  *  0; 

REPEAT 

SEEK (F I LEOIRECTORY , RECNUM) ; 

GET (FILEDIRECTORY) ; 

IF  NOT  (FILEDIRECTORY''. UNUSED)  THEN 
Q  Q  +  1; 

RECNUM  ! -  RECNUM  +  1; 

UNTIL  (Q  -  TESTNUM)  OR  (RECNUM  >  MAXSUBTESTS) ; 

IF  Q  -  TESTNUM  THEN 

BEGIN 

CURR I NDEXRECNUM  :•  RECNUM  -  1; 

OK TEST  ;.  TRUE; 

END 

ELSE 

BEGIN 

URITELN; 

URITELNl’No  test  loaded’); 

URITELN; 

STALL; 

END; 

END  i 


TEEN 
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IF  NOT  OKTEST  THEN  BLANKLINESU8.G.  18)  j 
UNTIL  OKTEST j 

SEEK  (FILEOIRECTORY.CURRINOEXRECNUM)  j 
GET(FILEDIRECTORY); 

DIRECTORY  «-  FILEDIRECTORY^j 
CLOSE (F I LEO I RECTORY . LOCK ) j 
URITE(CHR(28)>> 
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Textfile  :  0. MGR. TEXT 
Codefile  :  D.I1GR.COOE 


Volume  :  TFILES 
Volume  :  CATDATA 


«  Pile  last  modified  <  liar  11,  1983 


«  This  program  is  a  diagnostic  procedure  to  look  for  possible  bugs  in 

*  the  cat  system  fifes.  It  checks  all  the  infotablee  to  see  that  the  items 
e  exist  in  the  database,  and  it  also  checks  that  all  questions  uhich  have 

m  the  graphics  flag  set  indeed  have  a  graphics  foto  on  the  volume  Catfoto. 
s  Another  option  is  a  duplicate  question  search  procedure  uhich  scans  a 

*  specified  subtest,  and  checks  the  question  text  to  eee  if  questions  are 
«  similar  or  duplicate. 

*  Other  diagnostics  ui 1 1  be  added  as  needed. 

* 


(*SS+») 

PROGRAM  DIAGNOSTIC: 

USES  CHAINSTUFF:  (*  allows  to  get  back  to  catproject  *) 

CONST  (*  ascii  values  *) 

ETX  •  3;  (*  cntrl-c  *) 

BELL  -  7; 

NUL  -  0: 

L ARROW  -  8: 

RARROU  -  21: 

RET  -  13: 

UP  -  11: 

DOLN  .  10: 

ESC  -  27: 

SPACE  -  32: 

ASCI I0FFSET  -  48:  <*  ascii  zero  *) 

MAXLINEBUF  -  79:  <*  string  buffer  size  «) 

(a  teet  directory  name  *) 

INOEXNAME  -  'CATDATA: TESTINOEX. DATA*,  (*  test  directory  *) 
OATANAME  -  'CATOATA: I TEMP00L.0ATA’ }  {•  Question  directory  *) 
TEXTNAME  -  ’QTEXT: ITEMTEXT.OATA’ :  (*  Question  ascii  text  *) 

(«  slots  available  in  directory  «) 

MAXSUB TESTS  -  20: 

(«  maximum  question  pool  per  test  •) 

MAXITEMPOOL  -  300; 

(«  maximum  U  of  sample  questions  *) 

MAXSAMPLES  -  S: 

UNI  TNUOPR  INTER  -  ’PRINTER:’; 

OEFAULTFILE  -  ’DIAGNOSTIC. TEXT’ ; 

VERSION  -  ’  Cl. 033  ’; 

TABNAME  -  ’CATDATA: TABINFO.DATA’: 

(*  information  table  dimensions  *) 

1NF0R0U  -  36; 

INFOCOLUm  -  20; 

TYPE  0IR0ATA  -  PACKED  RECORD  (*  directory  for  tests  *) 

UNUSED  :  BOOLEAN; 

TESTNAME  :  STRING: 

I TEMCOOE  :  PACKED  ARRAY 

t0..MAXITEnPOOU 
OF  INTEGER; 

ENO: 


v v\. %  v 


-■»  -•*  .•* . 
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(*  info  table  *) 

TABLE  -  ARRAY  tl. .  INFOCOLUMN.l. .  INFOROU1  OF  INTEGER: 

(*  type  of  question  response  «) 

SEVENTYPE  -  PACKED  ARRAY tl.. 7]  OF  CHAR; 

(*  Different  types  of  uays  to  ansuer  a  question  «) 

! TEMRESPONSES  -  (CHARVALUE,  (*  nornal  eultiple  choice  «) 

INTVALUE.  («  Integer  value  as  ansuer  *) 

SEVENCHR);  (*  seven  characters  saved  as  ansuer  •) 

(«  question  ptrs/data  ,  inforeation  for  each  question  e) 

ITEMOATA  -  PACKED  RECORD 

.  (*  flags  if  graphics  1  tee  e) 

GRAPHICS  :  BOOLEAN: 

(«  valid  response  ranges  for  eultiple  choice  e) 
LOUANSUER. 

HIGHANSLER  :  CHAR: 

(«  block  0  in  file  uhere  text  starts  *) 

ITEffiLOCK, 

(e  byte  0  in  block  uhere  text  starts  *) 

ITEMPTR, 

<«  0  of  ansuers  if  eultiple  question  screen  «) 
ANSUERCOUNT  :  INTEGER: 

(«  inforeation  paraeeters  for  bayesian  strategy  *) 
A.B.C. 

(«  currently  unused  *) 

PROPCORRECT, 

POINTBISERIAL. 

YOPT. 

KOPT. 

0UMMY1,  (*  used  to  flag  coepreased  graphics  if  1.0  •) 
0UMHY2. 

0UT11Y3  «  REAL: 

(e  correct  ansuer  to  question  ») 

CASE  ATYPE  :  I TEMRESPONSES  OF 
CHARVALUE  :  (ANSUER  :  CHAR): 

INTVALUE  :  (JNTANSUER  :  INTEGER); 

SEVENCHR  :  (ORANSUER  :  SEVENTYPE): 

END; 

SETOFCHAR  -  SET  OF  CHAR; 

VAR  LETTERS. DIGITS, CHARACTERS  :  SET  OF  CHAR; 
output, 

COMMAND  :  CHAR; 

ESCPROC  :  BOOLEAN;  («  true  ••>  leave  duplicate  question  search  *) 

(*  string  character  buffer  a) 

LINEBUF  :  PACKED  ARRAY  10. .MAXLINEBUF]  OF  CHAR; 

CURR I NOEXRECNUM  :  INTEGER;  (*  record  0  of  file  directory  e) 

(*  test  directory  e) 

DIRECTORY  :  DIROATA; 

FILEDIRECTORY  :  FILE  OF  DIROATA; 

(*  test  question  ptrs/data  e) 

ITEM INFO  :  ITEMDATA; 

FILEI TEMINFO  :  FILE  OF  ITEMOATA; 

(s  infotable  «) 

INFOTABLE  :  TABLE: 

INFOFILE  :  FILE  OF  TABLE; 
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(*  question  ascii  file  e) 

ITEMTEXT  :  FILE: 

(*  output  file  for  test  listings  «) 
OUTFILE, 

OEST  i  TEXT; 


PROCEDURE  PAGE (OUfflY  :  CHAR):  FORUAROj 
PROCEDURE  SQUAltf;  FORUARO; 
PROCEDURE  BLANKLINES (START, COUNT, ENDCURSOR  t  INTEGER):  FORUARO: 
FUNCTION  GETCHAR  (OKSET  :  SETOFCHARj 

FLUSHQUEUE. ECHO. BEEP  :  BOOLEAN)  :  CHAR;  FORUARO; 
PROCEDURE  STALL:  FORUARO; 
FUNCTION  SLOT (COOE  :  INTEGER)  :  INTEGER;  FORUARO; 
PROCEDURE  NENU;  FORUARO; 
PROCEDURE  LOAD I NFO (RECNUH  :  INTEGER);  FORUARO; 
FUNCTION  HASH (KEY  :  INTEGER)  :  INTEGER;  FORUARO; 
PROCEDURE  GETNEUFILE;  FORUARO: 
PROCEDURE  LOAOTEST (MESSAGE  :  STRING);  FORUARO: 


(*•1  / TF I LES/DfIGR. DIR/O.  SEARCH.  TEXT  s) 
(etl  /TFILES/OfIGR. DIR/D.  IfFOTAB.TEXT  «) 
1**1  /TFILES/DfIGR.OIR/D.GRAFIX. TEXT  *) 
(*fl  /TFILES/OfIGR. OIR/D.UTL. TEXT  *) 


(*  looks  for  duplicate  questions  *) 
(*  check  the  infotables  *) 

(*  check  the  grafix  files  *) 

(*  util i ties  *) 


(*  sain  prograe  *) 

BEGIN 

DIGITS  t*0\.,9,)j 
LETTERS  (’A* . . ’Z’ . ‘a* . . *z*) ; 

CHARACTERS  t-  [OH  (32) .  .CHR  (126)1 ; 
FILLCHARILINEBUF [0)  .flAXLINEBUF, *  ’); 

REPEAT 

ESCPROC  t-  FALSE; 

MENU: 

COfflAND  GETCHAR(  ['1*..  *4’)  .TRUE, FALSE, TRUE) ; 
CASE  COMMAND  OF 
T  :  ; 

•2’  :  CHECKINFOTABS; 

*3'  :  CHECK GFILES; 

*4*  :  SEARCHTEXT; 

END;  (*  cases  *) 

UNTIL  COMMAND  -  T; 

PAGE (OUTPUT); 

GOTOXY(18.10): 

URITECLoading  Catproject  driver’); 

SETCHAIN ( ’ CATOATA: CATPROJECT ’ ) ; 

END.  (*  diagnostic  *) 
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(a  FILE  :  D.UTL. TEXT 

(a  Fila  last  Modified  :  Mar  11,  1983 


‘Include  file  for 


(a  This  procedure  is  called  by  aost  of  the  other  procedures.  It  clears  a) 
(a  the  console  screen,  a) 

PROCEDURE  PAGE: 

BEGIN 

URITE  (CHR  (28) ) ; 

GOTOXY (0,0) ; 

END; 


(aaaa  rings  the  bell 
PROCEDURE  SOU AUK: 
BEGIN 

URITE (CHR (BELL) ) j 
END:  (a  squauk  a) 


(aaaa  blank  out  lines  aaaa) 
PROCEDURE  BLANKLINES: 

VAR  1  :  INTEGER: 

BEGIN 

GOTOXY (0. START): 

FOR  I  :-  1  TO  (COUNT-1)  DC 
UR1TELNI’  ’  :  39): 
URITEC  *:39>: 

GOTOXY (0.ENOCURSOR); 

END:  (a  blank  lines  a) 


(a  read  an  acceptable  character  froa  the  keyboard  a) 
FUNCTION  GETCHAR; 

VAR  MASK  :  PACKED  ARRAYI0..0]  OF  CHAR: 

BEGIN 

IF  FLUSHQUEUE  THEN  UNI TCLEAR (2) :  (a  flush  buffer  a) 
REPEAT 

UNI  TREAD (2. MASK, 1 ) : 

IF  BEEP  AND  NOT  (MASX 10)  IN  OKSET)  THEN  SQUAUK; 
UNTIL  MASK (0)  IN  OKSET; 

IF  ECHO  AND  (MASK  (01  IN  (OR (32) .  .CHR(12S)1 )  THEN 
URITE  (MASK  (01); 

GETCHAR  i-  MASK  (01 : 

END:  (a  getchar  a) 


(aaaa  display  a  aessage/uait  for  a  keystroke  aaaa) 
PROCEDURE  STALL: 

VAR  STALLCHAR  :  CHAR; 

BEGIN 

URITECPress  <RET>  to  continue  ’); 

STALLCHAR  :- 

GETCHAR (  (CHR (RET) .CHR (ESC) I , TRUE. FALSE. TRUE) ; 
IF  STALLCHAR  -  CHR  (ESC)  THEN  EXI T  (PROGRAfl) ; 

END;  (a  stall  a) 


(a  Given  a  question  code,  this  function  returns  the  location  a) 
(a  of  the  question's  data,  8  text  pointers.  a) 

(a  This  function  is  called  by:  Procedure  ?  a) 

FUNCTION  SLOT; 

VAR  INDEX  :  INTEGER; 

FOUND  :  BOOLEAN: 
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(*  All  other  variables  are  global  to  Prograa  STRATEGY  a) 

BEGIN  (a  slot  *) 

INDEX  s -  MAXSAMPLES  +  lj 
FOUND  FALSE: 

REPEAT 

IF  DIRECTORY. I TEMCOOE (INOEXI  -  CODE 
THEN 

FOUND  TRUE 

ELSE 

INDEX  :•  INDEX  4-  1: 

UNTIL  < INDEX  >  MAXI TEHPOOL)  OR  (FOUND); 

IF  FOUND 
THEN 

SLOT  INDEX 

ELSE 

SLOT  -1; 

EM);  (*  slot  a) 

(s - - -  *) 


(e  Shou  coeeand  level  selections  *) 

(«  This  procedure  is  called  bg  Prograa  STRATEGY  aain  routine,  s) 

PROCEDURE  MENU; 

BEGIN 

PAGE (OUTPUT): 

GOTOXY(20.0>; 

URITECCAT  SYSTEM  DIAGNOSTIC  MENU  ’.VERSION); 

COTOXY(0,4); 

URITECSelect  one  of  the  following  options  by  entering  its  nuaber.*); 
GOTOXY (18.8) ; 

URITECl.  QUIT’); 

G0T0XY(18.9>; 

IR1TEC2.  CHECK  INFOTABLES’ ); 

GOTOXY (18. 10); 

kRITE(*3.  OCCK  GRAPHICS  FILES’); 

GOTOXY (18. 11); 

URITEC4.  LOOK  FOR  DUPLICATE/SI  HILAR  QUESTIONS’); 

GOTOXY (18. IS); 

URITEi’Enter  Choice  *  «  ’); 

END;  (*  aenu  *) 

(a - *) 


(a  This  procedure  loads  the  inforaation  table  for  a  subtest,  a) 
(a  This  procedure  ia  called  bg;  Procedure  a) 


PROCEDURE  LOAOINFO; 

(a  INFOFILE  are  declared  in  Procedure  INFOSETUP. 
(a  array,  a) 


INFOTABLE  is  an 


a) 


BEGIN 

RESET  (IfFOFILE.TABNAME) ; 
SEEK(INFOFILE.RECNUM) ; 
GET (INFOFILE); 

INFOTABLE  INFOFILE*; 
CLOSE (INFOFILE. NORMAL); 
END:  (a  load info  a) 


FUNCTION  HASH; 

BEGIN 

HASH  i-  (CURfl I NOEXRECNUM  a  MAXI TEMPOCL) 
♦  KEY  +  CURR l NOEXRECNUM; 

END;  (a  Hash  a) 
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(mss  open  a  new  text  file  aaaa) 

PRXEOURE  GETNEUFILE; 

VAR  FILENAME  s  STRING; 

ERRNUM  s  INTEGER; 

(a . 

(aaaa  get  a  legal  filename  aaaa) 

FUNCTION  NAMEOX  :  BOOLEAN; 

VAR  I  s  INTEGER; 

BEGIN 

IF  FILENAME  -  ”  THEN 
BEGIN  (1) 

FILENAME  s-  DEFAULTFILE; 

GOTOXY (44,0) ; 

UR I TE (FILENAME); 

ENO  ID 
ELSE 

IF  FILENAME  (11  -  CtfNesc)  THEN  EX  IT  (PROGRAM) ; 

IF  (POS ( 1 • TEXT ’ , F I LENAME )  <>  (LENGTH (FILENAME)  -  4)) 

OR  (LENGTH (FI LENAME)  <  G  )  THEN 
FILENAME  ;-  CONCAT (FI LENAME. ’ .TEXT* ) ; 

(••I-*) 

RESET (OEST, FI LENAME); 

(atl+a) 

IF  1  ORE  SUL T  .  0  THEN 
BEGIN  (2) 

URITELN; 

URITELN; 

URITECOestroy  old  ’ .FILENAME, ’?  Press  *  *N’  *  or  ”Y”  ’); 

IF  GETCHARI  I’y’ , ’n* , ’ Y* , ’N*)  .TRUE, TRUE, TRUE)  IN  [’YVu’l  T)CN 
BEGIN  <31 

aOSE  (OEST.  PURGE); 

REURITE (OEST. FILENAME): 

NATE  OX  s-  TRUE; 

ENO  (3) 

ELSE 

NAME OX  FALSE; 

ENO  (2) 

ELSE 

BEGIN  (4) 

(*<I-*) 

REURITE (OEST. FILENAME) ; 

<a*I+a) 

ERRNUM  I ORE  SUL T; 

IF  I ORE SUL T  <>  0  THEN 
BEGIN  (S) 

URITELN: 

URITELN; 

URITELN (’Cannot  open  ’.FILENAME,’  lo  error  U’  .ERRNUM) ; 

NAME OX  FALSE; 

END  151 

asE 

NAME OX  ;-  TRUE; 

END;  (4) 

ENO:  (*  naaeok  a) 

(a . 

BEGIN  (a  getneufile  a) 

REPEAT 

PAGE (OUTPUT); 

URITECEnter  output  file  naae,  then  press  <RET>  :  '); 

REAOLN (FILENAME) i 
UNTIL  NAME OX: 

ENO; 


(a  lists  the  tests  in  directory  8  loads  a) 
PROCEDURE  LOAOTEST; 

VAR  I.J.Q, 

TESTNUM, 


Apr  4  10:38  1983  DMGR.OIR/D.UTL. TEXT  (  Utilities)  Page  4 


RECNUTI  :  INTEGER; 

OKTEST  :  BOOLEAN; 

TEXTCOOE  :  CHAR; 

BEGIN  (*  load  test  *) 

OKTEST  FALSE; 

PAGE (OUTPUT); 

GOTOXY (10,0); 

URI  TEC  DUPLICATE  QUESTION  SEARCH  (LIST  OF  SUBTESTSC); 

GOTOXY  (0,3) ; 

(«  get  the  directory  information  *) 

I  0; 

J  :  *  0; 

RESET  (FILEDIRECTORY,  INOEXNATE) ; 

REPEAT 

SEEK (FILEDIRECTORY, I ) ; 

GET (F I LEOI RECTORY); 

IF  NOT  (F I LEDI RECTORY'''. UNUSED)  THEN 
BEGIN  (1) 

J  :•  J  ♦  1; 

IF  J  <-  10 
THEN 

GOTOXY (0,2+J) 

ELSE 

GOTOXY (40.2+J-10) ; 

URITELNIJ,’.  ’  ,F1LEOIRECTORY'\  TESTNATE) ; 

END;  (1) 

I  :•  I  +  1; 

UNTIL  I  >  MAXSUB TESTS: 

REPEAT 

GOTOXY (0.15); 

HRITELNC  INSTRUCTIONS  :  Enter  choice  0,  then  press  <RET>.  *); 
URI  TEC  To  escape,  press  8  then  <RET>.‘); 

GOTOXY (0,18); 

IAI TE  (MESSAGE) ; 

(*•!-») 

REAOLN  (TESTNUT1) ; 

(**!+*) 

IF  TESTNUT1  -  0 
THEN 

BEGIN  ID 
ESCPROC  TRUE: 

CLOSE (FILEDIRECTORY.LOCK) ; 

EXIT(LOAOTEST); 

END:  (1) 

IF  (TESTNUM  <  0)  OR  (TESTNU1  >  (TIAXSUBTESTS+1 )  > 

THEN 

BEGIN  (2) 

URITELN; 

URITELNC Invalid  test  0  :  TESTNUM); 

SQUAUK; 

URITELN; 

STALL; 

END  (2) 
asE 

BEGIN  (31 
RECNUTI  t.  0, 

Q  0: 

REPEAT 

SEEK  (FILEDIRECTORY, RECNUTI) ; 

GET (FILEOIRECTORY) ; 

IF  NOT  (FI  LEOI  RECTORY'1.  UNUSED)  THEN  Q  Q  +  1; 
RECNUTI  RECNUTI  ♦  1; 

UNTIL  (Q  -  TESTNUH)  OR  (RECNUTI  >  I1AXSUBTESTS) ; 

IF  Q  -  TESTNUT1 
THEN 

BEGIN  (4) 


365 
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CURR I NOEXRECNUM  RECNUH  -  lj 
OKTEST  TRUE: 

END  (4) 

ELSE 

BEGIN  (5) 

URITELN* 

UR  I TELN ( ’ No  test  loaded’): 
URITELN: 

STALL: 

END:  IS) 

END;  (3) 

IP  NOT  OK  TEST  THEN  BLANKLINESU8.S.18) ; 

UNTIL  OKTEST: 

SEEK (F I LEO I REC  TOR Y , CURR I NDEXRECNUM ) : 

GET (FILEOIRECTORY) ; 

DIRECTORY  :-  FILEDIRECTORYA: 
aOSE  (FILEOIRECTORY, LOCK) : 

END:  (»  load  test  *) 
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«  Textfile  «  0. SEARCH. TEXT 

*  File  last  modified  t  Mar  11,  1983  “Include  file  for  D.MGR* 


[* 

[*  This  procedure  ecans  through  the  CAT  agates  ascii  files  and  searches  for 
!«  questions  which  are  identical  or  similar.  First,  a  subtest  is  chosen 
[*  to  scan,  then  tuo  pieces  of  data  are  required  :  1.  The  number  of  keg 
is  words  to  extract  from  each  question,  and  2.  A  minimum  criterion  for 
[*  determining  if  a  question  is  similar, 

I* 

[*  The  algorithm  uses  these  tuo  pieces  of  data  in  the  following  manner. 

le 

[«  A  procedure  scans  each  question,  extracting  the  X  longest  words  from  each 
is  question.  This  X  value  is  the  number  of  keg  words  desired  bg  the  user, 
is  These  words  are  normalized  into  uppercase,  the  first  8  characters  saved, 
[«  and  stored  in  a  packed  arrag. 

i* 

[«  Each  question’s  keg  words  is  compared  to  all  previous  scanned  questions' 
[«  keg  words  and  the  number  of  matches  is  noted. 

is 

[»  If  the  number  of  matches  meets  the  minimum  criterion  as  specified  bg  the 
is  user,  then  a  record  is  dgnamicallg  created,  storing  the  tuo  item  codes 
is  uhich  matched. 

[« 

l«  1.  Since  dynamic  variables  are  used,  stack  overflow  mag  occur  in  certain 

is  cases.  The  program  does  not  get  handle  this.  Uhen  stack  overflow 

is  does  occur,  it  usual Ig  means  the  minimum  criterion  is  not  rigid 

is  enough,  meaning  the  program  is  finding  a  lot  of  matches. 

is  One  solution  is  to  raise  the  minimum  criterion  so  more  keywords  must 

is  match  before  a  question  is  considered  to  be  a  match. 

is 

[*  2.  This  ui 1 1  not  scan  graphics  questions. 


SEGMENT  PROCEDURE  SEARCHTEXT; 

CONST  (*  maximum  number  of  keys  you  can  extract  *) 

MAXKEYS  -  10! 

(*  qu<  <tion  textfile  control  codes  *) 

G010FLAG  -  128;  (m  flags  a  gotoxg  *) 

PAGEFLAG  «  129i  (*  flags  text  continues  on  another  page  *) 

UNUSEOFLAG  -  130;  (s  flags  unused  byte  *) 

ENOITEM  -  131;  (*  flags  end  of  text  for  a  question  *) 

VERSION  -  ’Cat  System  Duplicate  Question  Search  [1.03]*; 


TVPE  (»  keg  word  «) 

KEYTYPE  -  PACKED  ARRAYI0..7I  OF  CHAR; 

(*  record  pointer  *) 

PPTR  -  "PAIRS; 

(•  information  saved  if  question  match  occured  *) 

PAIRS  -  RECORD 

ITEM1,  (*  item  code  of  question  ») 

ITEM2  :  INTEGER! 

NEXT  t  PPTR;  (•  next  in  list  of  question  pairs  *) 

ENDi 


VAR  (*  string  character  buffer  *) 

C,  (s  counts  how  many  questions  looked  at  *) 

NUMMATCHING,  (*  number  of  keywords  match ing/quest ion  s) 
MINCRIT,  (*  minumum  U  of  keywords  which  must  match  s) 
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flAXNUfKEYS,  (*  aaxiaua  U  of  keywords  to  fetch/queetion  «) 

SLOTNUH,  (*  directory  index  *) 

BLK,  (a  block  uhere  question  text  starts  *) 

BLKPTR,  («  byte  in  block  uhere  question  text  starts  a) 

!,  (a  ai sc  counters  a) 

K. 

L. 

M. 

N. 

DATASLOT  :  INTEGER;  (a  record  U  uhere  question  data  exists  a) 

SCAN,  (a  true  -»>  scan  the  text/save  keywords  a) 

OFFSET,  (a  true  -«>  shift  text  over  40  coluitns  a) 

CONSOLE  :  BOOLEAN;  (a  true  -«>  send  output  to  screen  a) 

SELECT. 

LCONHANO, 

OUTPUT  :  CHAR; 

(a  key  words  for  current  question  a) 

KEYWORD  ;  ARRAY II., MAXKEYS]  OF  RECORD 

STR  ;  KEYTYPE; 

LENGTH  :  INTEGER; 

END; 


(a  list  of  keywords  for  subtest  questions  a) 

LIST  :  ARRAYI0.  .HAXITEfff’OOLl  OF  RECORD 

WORD  t  PACKED  ARRAY (0. .79)  OF  CHAR; 
END; 

(a  does  this  question  have  keywords  ?  Is  it  noraal  text,  not  grafix  a) 
USED  t  PACKED  ARRAY  [0.  .flAXITEnPOOLl  OF  BOOLEAN; 


KEYSTR  t  KEYTYPE; 

(a  pointers  to  list  of  Matching  questions  a) 

(a  plil  points  to  head  of  the  list  with  i  key  words  Matching  a) 

P  ;  ARRAY  Cl..  tlAXKEYSJ  OF  RECORD 

LPO INTER  t  PPTR; 

L COUNT  ;  INTEGER; 

END; 

U0RCPA1R  ;  PPTR; 

(a  string  variables  which  allow  use  of  POS  for  pattern  Matching  a) 
TEXTLINE  :  STRING  1801; 

TKEY  t  STRING  (81; 

TEXTKEYS  :  ARRAY  II.  .flAXKEYSI  OF  STRING  181; 

(a  file  of  ascii  codes,  control  #’s  a) 

I TEHTEXT  ;  FILE; 

( . ) 


(a  reads  the  itea  text  file  8  displays  i tea  text  .  This  procedure  a) 

(a  doubles  as  a  scanner  to  extract  key  words  and  a  procedure  to  display  a) 
(a  the  text  of  a  question.  If  SCAN  is  set  to  true,  the  key  words  will  a) 
(a  be  saved,  else  it  just  displays  text  on  the  screen.  a) 

PROCEDURE  SCANOUEST (BLOCKNUH.BLOCKPTR  :  INTEGER); 

CONST  MAXBUFSIZE  -  2047; 

BLOCK SOUT  .  4; 

VAR  STARTUORO, 

niN, 

HINLOC, 

SLENGTH. 

X. 

Y, 

B. 

A, 

CURRPTR, 
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CURRBLK, 

CHARCOOE. 

CHARCNT  i  INTEGER; 

ENDLINE. 

ENOUORO, 

NOTBLANK, 

BAD  10  i  BOOLEAN; 

(•  buffer  block  of  ascii,  control  codes,  ueed  to  load  question  text  *) 
BUF  ;  PACKED  ARRAY  10. .MAXBUFSIZE)  OF  0..139; 

SHORTLINE  :  PACKED  ARRAY  18.. 38)  OF  CHAR; 

I . ) 

(•  reads  a  block  fro*  disk  into  the  i tee  ascii  buffer  *) 

PROCEDURE  REAOBLOCK (UHICHBLOCK  i  INTEGER); 

VAR  BLOCKSTRANSFERRED, 

ERRNUT1  :  INTEGER; 

BAD 10  >  BOOLEAN; 

BEGIN 

BADIO  i-  FALSE; 

RESET (ITEMTEXT, TEXTNAHE) ;  (a  question  text  e) 

BLOCKSTRANSFERRED  BLOCKREAO< ITEMTEXT. BUF. BLOCKSOUT, UHICHBLOCK); 

BADIO  ((BLOCKSTRANSFERRED  <  1)  OR  (I ORE SUL T  <>  8)); 

ERRNUfl  IORESULT; 

CLOSE ( I TEMTEXT , LOCK ) ; 

IF  BADIO  THEN 
BEGIN  (1) 

WRITELNjURITELN; 

URITE (’Block  read  io  error  H  *  .ERRNUfl) ; 

STALL; 

EXIT (PROGRAM); 

END;  (1) 

END;  (*  read  block  *) 

{ - , 

(«  return  the  next  code  in  ascii  file  *) 

FUNCTION  BUFCOOE  t  INTEGER; 

BEGIN 

BUFCOOE  : -  BUF  [CURRPTR] ; 

QJRRPTR  CURRPTR  ♦  1; 

IF  CURRPTR  >  MAXBUFSIZE  THEN 

(*  end  of  b lock/get  next  block  and  reset  bute  ptr  •) 

BEGIN  (li 

CURRBLK  «-  CURRBLK  +  BLOCKSOUT; 

REAOBLOCK (CURRBLK); 

CURRPTR  8; 

END;  (1) 

EM);  (*  bufcode  *) 

( . ) 

BEGIN  («  scanquest  w) 


i.V 


V. 


IF  SCAN  T)€N 

(«  clear  key  word  buffer  for  this  question  •) 

FOR  I  1  TO  MAXKEYS  DO 

BEGIN 

KEYWORD!!)  .STR 
KEYUORO ID. LENGTH  «-  8; 

EM): 


REAOBLOCK (BLOCKNUM); 

(*  set  block/byte  ptrs  «) 
CURRPTR  »-  BLOCKPTR; 

CURRBLK  BLOCKNUM; 
FILLCHAR(LINEBUF (0) ,80, ’  ’); 
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(*  read  bytes  froe  the  buffer  «) 

REPEAT 

(«  get  char  froe  block  buffer  «) 

CHARCOOE  : -  bufcode; 

CASE  CHARCOOE  OF 

GOTGFLAG  :  BEGIN  (1)  (*  eove  cursor  *) 

(«  next  two  butes  after  flag  are  x.y  coord  «) 

X  BUFCOOEs 

Y  BUFCOOEs 

CHARCNT  BUFCOOEs 

IF  (CURRPTR  ♦  CHARCNT  -  1)  >  HAXBUFSIZE  THEN 
BEGIN  <21 

8  (HAXBUFSIZE  +  1)  -  CURRPTRs 

HOVELEFT (BUF  ICURRPTRJ .LINEBUF (XJ ,B) s 
X  X  +  Bs 

B  s-  CHARCNT  -  Bs 
CURRBU  CURRBLK  +  BLOCKSOUT; 

REAOBLOCK (CURRBLK) s 
CURRPTR  0: 

HOVELEFT (BUF [CURRPTR1 .LINEBUF (XI ,B>  s 
CURRPTR  CURRPTR  +  Bs 

END  (21 
ELSE 

BEGIN  (3) 

HOVELEFT (BUF  (CURRPTR) .LINEBUF (X) .CHARCNT) s 
CURRPTR  CURRPTR  +  CHARCNT s 

IF  CURRPTR  >  HAXBUFSIZE  THEN 
BEGIN  (41 

CURRBLK  CURRBLK  +  BLOCK SOU Ts 
CURRPTR  :•  0; 

READBLOCK (CURRBLK) : 

END:  (4) 

ENOs  (3) 

IF  NOT  SCAN  THEN 
BEGIN 

IF  OFFSET  THEN 
GOTOXY(40,Y) 

ELSE 

GOTOXY (0, Y) i 

HOVELEFT  (LINEBUF  10)  .SHORTLIME  (0)  .39)  s 

URITE (SHORTLINE) s 
FILLCHAR (LINEBUF (0) ,80, ’  ’); 

END 
ELSE 
BEGIN 
K  0; 

.  ENDLINE  s-  FALSE; 

REPEAT 

(*  skip  past  leading  blanks  to  find  a  word  *) 
NOTBLANK  FALSE; 

REPEAT 

IF  LINEBUF (K)  -  *  ’  THEN 
K  s-  K  +  1 
ELSE 

NOTBLANK  TRUE; 

UNTIL  (K  >  79)  OR  (NOTBLANK); 

IF  K  >  79  THEN 
ENDLINE  TRUE 

ELSE 
BEGIN 

(»  extract  word  *) 

SLENGTH  «•  0; 

ENOUORO  FALSE; 


370 


Apr  4  10:38  1983  OMGR.OIR/D. SEARCH. TEXT  I  Searches  a  subtest  for  duplicate  questions)  Page  5 


STARTUORO  Kj 
REPEAT 

SLENGTH  SLENGTH  +  lj 
K  :•  K  +  li 
IF  K  >  79  THEN 
ENDLINE  TRUE 
ELSE 

IF  LINEBUF IKI  -  *  *  THEN 
ENOUORO  TRUE: 

UNTIL  (ENDLINE)  OR  (ENDUORO): 

KEYSTR  *  *: 

IF  SLENGTH  >  8  THEN 

MOVELEFT  (L I NEBUF  [STARTUORO) , ICEYSTR 10) , 8) 

ELSE 

MOVELEFT (LINEBUF (STARTUORO) .KEYSTR  10) .SLENGTH) : 


(«  see  if  there  are  shorter  uords,  if  so  replace  *) 
MIN  :-  SLENGTH: 

M1NL0C  0: 

A  :  ■  1; 

REPEAT 

IF  KEYUOROIA). LENGTH  <  MIN  THEN 
BEGIN 

MIN  :-  KEYUORD [A). LENGTH; 

MINLOC  :-  A; 

END: 

UNTIL." (A  >  HAXNUHKEYS)  OR  (MIN  -  0); 

IF  MINLOC  <>  0  THEN 
BEGIN 

UR1TE (’*’); 


(«  capitalize  the  uord  *) 

FOR  I  :-  0  TO  7  DO 

IF  KEYSTR  Cl)  IN  I’a'.-’z')  THEN 
KEYSTR  III  :-  CHR  UORD  (KEYSTR  (I))  -  32) )  $ 
KEYUORD  IM I  NLXI.STR  :-  KEYSTR; 

KEYUORD  [MI  NLX).  LENGTH  SLENGTH; 

END; 

END; 

UNTIL  ENDLINE; 

FILLCHAR(LINEBUF  10)  ,80,  *  *); 

END;  («  if  scan  *) 

END;  (1) 

PAGEFLAG  :  : 

END ITEM  :  ; 


END;  _ 

UNTIL  CHARCOOE  -  ENDITEM;  (•  until  end  flag  hit  *) 
FILLCHAR (LINEBUF  10), 80.’  ’); 

END;  (s  scanqueet  «) 


(*  coepare  the  current  question  with  others  in  list  *) 

PROCEDURE  COMPARE; 

VAR  PLOC  :  INTEGER; 

BEGIN 

(*  start  with  first  question  to  coepare  «) 

L  :-  MAXSAMPLES  +  1; 

UHILE  (L  <  SLOTNUM)  00 
BEGIN 

(«  if  this  question  has  keywords  e) 

IF  USED  CL)  THEN 
BEGIN 

URITEC.’); 

(«  eove  ths  keu  uords  froa  eastsr  list  into  string  var  for  POS  *) 
MOVELEFT  (LIST  (L) . UORO 10) ,  TEXTL I NE  (1 ) .  80) ; 
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(a  coepare  current  keys  to  keys  loaded  froe  list  e) 
NUTHATCH1NG  0: 


FOR  N  1  TO  MAXNUTKEYS  DO 
BEGIN 

PLOC  POSITEXTKEYS IN], TEXTLINE): 

IF  (PLOC  <>  0)  AND  ITEXTKEYS  IN)  <>  *  ’)  THEN 

BEGIN 

NUTHATCHING  »-  NUTHATCH  I NG  +  1: 

FILLCHAR (TEXTLINE  (PLOC]  ,8,‘  *); 

END; 

END; 


(«  if  nuaber  of  keys  aeets  ainiaua,  save  data  «) 

IF  NUTTIATCHING  >-  MINCRIT  THEN 
BEGIN 

NEU(UOROPAIR); 

UOROPAIR^.  ITEH1  SL0TNUT1; 

U0R0PAIRMTEM2  L; 

UORDP  A I R"' .  NEXT  P  [NUTTIATCHING)  .LPOINTER; 

P (NUTTIATCHING]  .LPO INTER  U0R0PA1R; 

P  (NUTT1ATCH I NG1 .  LCOUNT  P  (NUTHATCH  I  NG]  .LCOUNT  +  1; 

URI TE  (*.*  .NUTHATCHING. ’.*) ; 

END; 

END: 

L  L  ♦  1; 

END; 

END;  (*  coapare  *) 


< - » 

(e  this  procedure  gets  the  search  paraaeters  as  desired  *) 

PROCEDURE  GETSE ARCH INFO; 

BEGIN 

PAGE (OUTPUT) j 
GOTOXY(20.0)t 

URITECLEVEL  OF  ANALYSIS*); 

GOTOXYI0.4); 

URITELNI 

‘The  level  of  analysis  for  question  coeparison  is  detereined  by  the  nuaber*); 
URITELNI 

•of  key  Horde  fetched  fro*  each  question.  If  an  analysis  of  5  is  used.*); 
URITELNI 

’then  the  5  longest  words  froe  each  question  ui 1 1  be  used  in  coaparing  with’); 
URITELNI 

’the  5  longest  nerds  froe  other  questions.  You  can  have  a  MAX I HUM  of  10*); 
URlTELNt’keys.’); 

URITELN; 

REPEAT 

URITELN; 

URITEf’Enter  nuaber  of  keys  to  use  and  then  press  <RET>  :  *); 

REAOLN  (MAXNUTKEYS) ; 

IF  (MAXNUTKEYS  >  MAXKEYS)  OR  (MAXNUTKEYS  <-  0)  THEN  SOU  AUK; 

UNTIL  (MAXNUTKEYS  <•  MAXKEYS)  AND  (MAXNUTKEYS  >  0); 

PAGE (OUTPUT); 

GOTOXY(20.0); 

URI TE (’MINIMUM  CRITERION’); 

GOTOXY (0,4) ; 

URITELNI 

’The  ainiaua  criterion  of  analysis  is  the  ainiaun  nuaber  of  keyuords  that  ’); 
URITELNI 

’aatch  in  order  to  consider  the  question  as  a  possible  duplicate.  If  a’); 
URITELNI 
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’einieue  criterion  of  2  is  used,  then  questions  uith  a  nueber  of  Matching  '); 
URITELNI 

'keywords  less  than  2  are  ignored.  Your  einieue  criterion  should  be  less’); 
URITELNC  than  or  equal  to  ’  .nAXNUfKEYS) ; 

URITELN: 

REPEAT 

URITELN; 

URITELN (’Enter  einieue  criterion  of  keys  to  consider,*); 

URITECthen  press  <R£T>  t  *); 

RE ADLN (HINCRIT); 

IF  (HINCRIT  >  HAXNUHKEYS)  OR  (fllNCRIT  <-  0)  THEN  SOUAUK; 

UNTIL  (MINCRIT  <-  HAXNUMKEYS)  AND  (HINCRIT  >0); 
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CURRPTR  CURRPTR  +  lj 
IF  CURRPTR  >  511  T)€N 
BEGIN  (1) 

CURRBLK  CURRBLK  +  lj 
READ I TET8L0CK (CURRBLK ) ; 
CURRPTR  0; 

END;  (1) 

END:  (*  Ibufcode  •) 


I . I 

BEGIN  (s  listprint  *) 

READI TETBLOCK  (BLOCKNUT) ; 

CURRPTR  :■  BLOCKPTR; 

CURRBLK  BLOCKNUT; 

REPEAT 

CHARCOOE  LBUFCOOE; 

CASE  CHARCOOE  OF 
GOTOFLAG  :  BEGIN  (1) 

X  LBUFCOOE; 
y  LBUFCOOE: 

(e  ignore  next  byte,  due  to  a  file  Modification  e) 
SK1PBYTE  LBUFCOOE; 

UTITELN(OEST): 

WRITE (OEST.*  '  :  X): 

END;  (11 
PAGEFLAG  :  BEGIN  (31 

URITELN(OEST) ; 

URITELN(OEST); 

URITELN(DEST); 

END:  (31 
ENDITET  i  : 

END;  («  cases  e) 

IF  (CHARCOOE  >-  32)  AND  (CHARCOOE  <-  126)  THEN 
BEGIN  (41 
X  X  ♦  1: 

URI TE  (OEST.Ofl  (CHARCOOE) )  t 
END:  (41 

UNTIL  CHARCOOE  -  ENDITET; 

END:  (*  print  e) 


I 


) 


(«  lists  things  to  the  console  *) 

PROCEDURE  LCONSOLE: 

VAR  FIXCHAR  :  CHARS 
BEGIN 

SCANQUEST (BLK, BLKPTR) , 

IF  OFFSET  THEN 
GOTOXYI40.20) 

ELSE 

GOTOXY (0,20) i 

URITE(’IteM  code  :  ’ .DIRECTORY. I TETCOOE [SHUT] ) ; 

IF  OFFSET  T)€N 
GOTOXY  (40. 21) 

ELSE 

GOTOXY (0,21) j 
WRITECAnsuer  :’); 

CASE  1TEHINFO. ATYPE  OF 
CHARVALUE  :  IFIITELNC  * ,  I TETINFO.  ANSUER) ; 

INTVALUE  :  URITELNC  ’.I  TETINFO.  INTANSWER); 
SEVENCHR  :  BEGIN 

FOR  I  1  TO  1TET1NF0. ANSUERCOUNT  DO 
WRITEC  MTETIffO.CHRANSUERII]); 
IBITELN; 

END; 

END;  (*  cases  *) 

END;  (e  I console  e) 


(«  lists  i tea  text  and  data  to  file/printer  e) 
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PROCEDURE  LFILE; 

BEGIN 

URITELNIDEST) ; 

URITELNIDEST,  *  I  tee  code:  '.DIRECTORY.  I TEMCOOEISNUH] ); 
URITELN(OEST) : 

LISTPRINT (BLK.BLKPTR) : 

URITELNIDEST): 

URITELNIDEST): 

URITE IDEST, *  Ansuerls)  :  '): 

CASE  ITEflINFO. ATYPE  OF 
CHARVALUE  :  URITELNIDEST, ITEniNFO.ANSUER): 

INTVALUE  :  WTITELN  IDEST,  I TEPII NFO.  INTANSUER); 

SEVENCHR  :  BEGIN  14) 

FOR  I  :-  1  TO  ITETIINFO. ANSUERCOUNT  DO 
URI TE IDEST,  ITEfllfFO.CHRANSUERII] ,  *  '); 
URITELNIOEST); 

END;  (4) 

END;  le  cases  *) 

URITELNIDEST): 

ETC;  I*  If  i  le  *) 
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OFFSET  TRUE; 

IF  CONSOLE  THEN 
BEGIN 
ICONSOLE: 

GOTOXY (0,23) t 

WIITECPress  <RET>  to  continue,  <ESC>  to  quit  ’): 

IF  GETCHARUCHHRET). CHR(ESC)), TRUE. TRUE, TRUE)  -  CHR(ESC)  THEN 
EXITLOOP  TRUE: 

END 

ELSE 

BEGIN 

LFILE; 

URITELN(OEST); 

UR  I  TELN(DEST) ; 

FOR  I  1  TO  79  00 
UR1TEI0EST,  ) : 

URITELN(OEST); 

URITELN(OEST) ; 

END; 


% 


UOROPAIR  UOROPAIR^.NEXT: 
END: 

END;  (*  textoutput  *) 


(« 


*) 


(*  get  the  output  destination  for  results  ») 

PROCEDURE  GETOUTIfFO; 

BEGIN 

PAGE (OUTPUT) ; 

GOTOXY (20.0): 

URI  TEC  OUTPUT  SELECT  fENU* ) ; 

GOTOXY (0.4); 

URITECSelect  one  of  the  following  options  bg  entering  its  nueber.’); 
GOTOXY (16. 8): 

URITEC1.  QUIT’): 

G0T0XY(16.9) ; 

URI  TEC  2.  SEARCH  RESULTS  TO  CONSOLE’): 

GOTOXY (16, 10): 

URI  TEC  3.  SEARCH  RESULTS  TO  PRINTER’): 

G0T0XY(16,11): 

URI  TEC  4.  SEARCH  RESULTS  TO  FILE’): 

GOTOXY (16. 18): 

URITECEnter  Choice  *  t  ’>: 

SELECT  GETCHAR(C1’..’4’1, TRUE, TRUE, TRUE): 

CONSOLE  FALSE: 

CASE  SELECT  OF 

•1’  :  i 

•2*  *  BEGIN 

REl*ITE(OEST,  ’CONSOLE:  ’): 

CONSOLE  :-  TRUE: 

END: 

•3*  :  REURITE(OEST.UNITNUnPRINTER): 

’4’  :  GETNEUFILE: 

END: 

END:  («  getoutinfo  a) 


(*  begin  search  results  e) 

BEGIN 

(«  turn  off  scan  flag  so  scan  routine  will  display  text  instead  of  scan  *) 
SCAN  :-  FALSE: 
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FOR  INDEX  i-  MAXNUHKEYS  OOUNTO  1  DO 
BEGIN 

IF  P [INDEX] .LCOUNT  >  0  THEN 
BEGIN 

N0C1ATCH  FALSE: 

PAGE (OUTPUT); 

URITELN(PIINOEX). LCOUNT. ’  Matches  occured  on  ’.INDEX,’  keywords.’); 
URITELN; 

URI  TEC  Do  you  want  to  see  the  iteecodes  of  Matches  ?  V/N  :  *); 
LCOfflAND  GETCHARI  I’Y’ , ’N’ , ’y’ ,  *n’) ,  TRUE.  TRUE.  TRUE) : 

IF  LCOTflANO  IN  Cy’.’Y’l  THEN 
BEGIN 
URITELN: 

URITELN: 

URI TELN; 

URITECUould  you  like  to  see  the  question  text  also  ?  Y/N  :  ’); 
PCOHUAND  :-  GETCHAR(  I*  Y’ ,  ’N’ ,  *y’ .  *n’] .  TRUE. TRUE. TRUE) ; 

GETOUTINFO; 

IF  SELECT  <>  *1’  THEN 
BEGIN 

PAGE (OUTPUT): 

FOR  K  1  TO  73  DO 
UR1TE(DEST,’*’); 

URI TELN (DEST); 

URITELN (DEST, OIRECTORY.TESTNAHE): 

FOR  K  :-  1  TO  73  DO 
URITE(OEST.’st’): 

URI TELN (DEST) : 

URITELN(DEST, ’Level  of  Analysis  ;  ’ .HAXNUHKEYS) ; 
URITELN(DEST.’HiniMUM  Criterion  :  ’.HINCRIT); 

URI TELN (DEST, ’NuMber  of  Hatching  Questions  on  ’.INDEX,’  Keys  :  ’, 
P  (INDEX!.  LCOUNT): 

URI  TELN  (DEST) ; 

UOROPAIR  :-  P (INDEX). LPOINTER; 

L  :  -  0; 

UHILE  UOROPAIR  <>  NIL  00 
BEGIN 

L  :-  L  *  1: 

URITE (DEST, DIRECTORY.  ITEMCOOE  (UOROPAIR”.  ITEM) ,’  /  ’, 
DIRECTORY. I TEHCOOE (UOROPAIR”. I TEH21,’  ’); 

UOROPAIR  UOROPAIR”. NEXT; 

IF  L  HOO  5  -  0  THEN  URI TELN (DEST) ; 

END; 

UR I TELN (DEST); 

URITELN(OEST); 

IF  CONSOLE  THEN 
STALL; 


IF  PCOHUAND  IN  (’Y’.’y’)  THEN 
TEXTOUTPUT; 

CLOSE (DEST, LOCK) ; 

END; 

END; 

END; 

END; 

PAGE (OUTPUT): 

IF  NOHATCH  THEN 
BEGIN 

IfllTELNCNo  Matches  occurred  for  this  scan  of  *, DIRECTORY. TESTNAHE); 
URITELN; 

STALL: 
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EXIT(SHOURESULTS) ; 

END 

ELSE 

URITECUould  you  like  to  look  at  the  results  again  ?  Y/N 
UNTIL  (GETCHARd’YVy’.'NVn’), TRUE. TRUE.  TRUE)  IN  CN'.’n']); 
END:  (e  shouresults  «) 


(«  initialize  arrays  «) 
PROCEDURE  INITIALIZE; 

BEGIN 

FOR  I  1  TO  MAXKEYS  DO 
BEGIN 

Ptll.LPOlNTER  NIL; 
PIII.LCOUNT  0; 

END; 


FOR  I  0  TO  flAXI TEMPOOL  DO 
USED  (I)  FALSE; 

TICEY  *  *; 

TEXTLINE 

PAGE (OUTPUT) ; 

GOTOXY(0,6); 

IAITE  (VERSION); 

GOTOXY (0,8) ; 

URITELN (DIRECTORY. TESTNAHE); 

URITELNCLevel  of  Analysis  :  ‘  .MAXNUTKEYS) ; 
URITELNCflinieue  Criterion  :  ’  .MINCRIT) ; 
GOTOXY (0.12); 

URI TE (CHR (2) ) ; 

END;  (e  initial ize  *) 


BEGIN  (e  searchtext  «) 

(*  set  terminate  program  flag  to  false  *) 

ESCPROC  ;-  FALSE: 

(*  get  the  subtest  you  uant  to  search  *) 

LOAD TEST (’Search  text  in  uhich  subtest?  :  ’); 

(e  if  you  are  not  done  s) 

IF  NOT  ESCPROC  THEN 
BEGIN 

(e  get  #  of  keywords  to  fetch,  criterion  *) 

GETSE ARCH INFO; 

(e  set  up  data  structures  e) 

INITIALIZE; 

(e  start  with  first  question  «) 

SLOTNUH  flAXSAHPLES  +  1; 

(e  open  the  question  data  file  *) 

RESET  (FILEI  TEfllNFO.DATANAnE) ; 

(e  initialize  count  of  number  of  questions  processed  *) 
C  ;-  0; 

(*  set  flag  for  extracting  key  words  «) 

SCAN  TRUE; 


’); 


(e  look  at  all  the  questions  in  the  subtest  directory  «) 
REPEAT 
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(a  if  the  itea  code  is  >  0  then  question  exists  *) 
IF  DIRECTORY. I TEHCODE (SLOTNUH)  >-  0  THEN 
BEGIN  (10i 

(a  get  data  of  question  a) 

OATASLOT  HASH  (SLOTNUH)  ; 
SEEK(FIL£ITEMINFO,DATASLOT); 

GET  (FILE  ITEM  INFO)  s 
ITEDINFO  FI  LEI  TEH INFO"; 


(*  if  not  a  graphics  question,  then  ue  can  extract  text  *) 

IF  NOT  I  TEH INFO. GRAPH ICS  THEN 
BEGIN 

(a  get  the  text  pointers  a) 

BLK  I  TEH  INFO.  1  TEMBLOCK; 

BLKPTR  ITEHINFO.ITEHPTR; 

(a  aark  this  question  has  keywords  a) 

USED tSLOTNUHI  TRUE: 

(a  count  hou  Many  questions  processed  so  far  a) 

C  :•  C  +  It 

(a  indicate  nuaber  of  questions  processed  and  aeaory  available  a) 
URITELN; 

URITE (C:4, * .  [\HEHAVAIL.M  *); 


(a  look  at  the  question  and  extract  keywords  a) 
SCANQUEST (BLK , BLKPTR) : 


(a  save  the  key  words  for  this  question  in  Master  list  a) 

N  0; 

FOR  H  1  TO  HAXNUHKEYS  00 
BEGIN 

KEYSTR  KEYWORD  IH) .STRs 
HOVELEFT  (KEYSTR  [0] ,  L I NEBUF  CN] ,  8) : 

N  N  +  8: 

END: 

LI ST  (SLOTNUH]. UORO  LINEBUF; 

(a  Move  keyword  in  a  list  of  'strings*  so  ue  can  use  the  a) 
(a  built  in  POS  function  to  find  keyword  Match  a) 

FOR  N  i-  1  TO  HAXNUHKEYS  00 
BEGIN 

KEYSTR  «-  KEYWORD  IN]  .STRj 
HOVELEFT  (KEYSTR  10]  ,TKEY  111  ,8): 

TEXTKEYS  CN]  TKEY; 

END: 

(a  coapare  our  current  keywords  with  Master  list  a) 

(a  if  question  aatch  occurred,  allocate  new  a) 

(a  record  and  store  in  appropriate  list.  a) 

COMPARE: 

END: 

END:  110) 

SLOTNUH  SLOTNUM  ♦  1: 

UNTIL  (SLOTNUH  >  HAXITEHPOOL) ; 

(a  notify  done  with  ecan  a) 

FOR  I  1  TO  8  00 
SQUAWK; 

(a  display  the  results  of  scan  a) 

SECURE SUL TS; 


CLOSE (FILEITEHINFO, NORMAL) ; 
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(•»»»•»••«••»«»«»««••»♦»*»**•*•«»  ♦♦»♦»>«■« !»«•*•*•»*■«»»««»•»»*•»««») 

(*  FILE  :  0. INFOTAB. TEXT  "include  file  for  D.MGR  *) 

(«  File  last  modified  :  flar  11,1983  *) 

(»»«•«»*•••»««»»*•»•>•««•••»*»»«»»•»»*•••••»♦»•»»»*«****»»♦♦•♦***) 

(•It  is  a  verification  that  all  items  *) 

(*  in  the  info  table  are  also  in  the  subtest  directories.  •) 

(•  It  works  by  loading  an  infotable  then  checking  the  subtest  directory  to  •) 
(*  see  if  the  infotable  entry  exists  in  the  subtest  database.  «) 

SEGMENT  PROCEDURE  CHECKINFOTABS; 

TYPE  (*  save  locations  in  infotable  where  errors  occured  *) 

ERRtlATRIX  -  PACKED  ARRAY  (1. .  INFOCOLUMN,  1. .  INFOROUI  OF  BOOLEAN; 

VAR  LINE,  (*  keep  track  of  tine  number  on  screen  *) 

ERRORCNT,  (*  running  count  of  errors  •) 

DSLOT,  (*  directory  slot  of  item  *) 

I,  (*  various  counters  •) 

J. 

K  :  INTEGER; 

(*  keeps  tracks  of  infotable  errors  for  each  subtest  •) 

ERRTAB  :  PACKED  ARRAY  (0, .MAXSUBTESTS]  OF  RECORD 

ECNT  :  INTEGER; 

EL  I  ST  :  ERRtlATRIX; 

END; 


(•  list  the  errors  in  the  infotable  *) 

PROCEDURE  LlSTIhFOERRS; 

VAR  SELECT  :  CHAR; 

CONSOLE  :  BOOLEAN; 

(EAGER  :  STRING: 

(•  get  the  output  destination  *) 

PROCEDURE  GETOUTOEST; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY (20,0) ; 

If) I TE ( ‘OUTPUT  SELECT  MENU’); 

GOTOXY (0.4); 

kKITECSelect  one  of  the  following  options  by  entering  its  number.'); 
GOTOXY (1G.8); 

URITECl.  QUIT'); 

GOTOXY (IS. 9); 

ISITEC2.  INFOTABLE  ERRORS  TO  CONSOLE’); 

GOTOXY (IS, 10) ; 

l*ITE(’3.  INFOTABLE  ERRORS  TO  PRINTER’); 

GOTOXY!  IS. 11); 

UTITEC4.  INFOTABLE  ERRORS  TO  FILE’); 

GOTOXY (IS. 18); 

URITECEnter  Choice  M  :  ’); 

SELECT  GETCHAR(  I’  1’ ..  ’4’1  .TRUE, TRUE, TRUE) ; 

CONSOLE  FALSE; 

CASE  SELECT  OF 

T  :  EX IT (CHECKINFOTABS); 

’2’  :  BEGIN 

CONSOLE  TRUE; 

REUR I TE (OEST , ’ CONSOLE : ’ ) ; 

ENO; 

’3’  :  REURITE (OEST. UNI TNUMPRINTER); 

’4’  ;  GETNEUFILE; 

ENO; 

END;  (*  getoutdest  *) 


BEGIN  (•  I  i et  infojrrs  •) 

(*  get  information  to  send  output  destination  •) 
GETOUTOEST; 


(*  write  a  header  *) 
PAGE (OUTPUT); 
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HEADER 

’ I TEHCOOE  ROU  COLUMN  ITEMCOOE  ROW  COLUMN  ITEMCOOE  ROU  COLUMN' ; 

(m  open  the  subtest  directories  file  «) 

RESET (F I LEO  I RECTORY . ! NOEXNAME ) j 

(e  look  at  each  subtest  *) 

FOR  CURR I NOEXRECNUM  0  TO  20  DO 
BEGIN 

(«  if  there  were  errors,  display  then  *) 

IF  ERRTAB tCURR I NOEXRECNUM). ECNJ  >  0  THEN 
BEGIN 

(*  get  the  subtest  directory  *) 

SEEK(FILEOIRECTORY.CURRINOEXRECNUM); 

GET (FILEOIRECTORY) : 


(*  if  a  eubtests  exists  here  *) 

IF  NOT  (FILED [RECTORY*. UNUSED)  THEN 
BEGIN 

(*  get  the  subtest  directory  *) 
DIRECTORY  FI LED 1 RECTORY*; 


(«  write  sons  diagnostic  info  *) 

URITELN(OEST); 

URI  TELN(OEST) ; 

URITELN(OEST); 

PAGE (OUTPUT); 

URITELN(OEST, 'Subtest  :  * .DIRECTORY. TESTNAME) ; 

URI TELN(DEST,’ This  itens  do  not  exist  in  database.’); 
URITELN(OEST); 

URI TELN(OEST. HEADER); 

LINE  1; 

(«  load  the  infotable  for  this  eubtest  *) 
LOADINFO(CURRINOEXRECNUM) ; 

(«  check  the  error  aatrix  and  display  errors  *) 

FOR  J  1  TO  INFOROU  00 
FOR  I  t-  1  TO  IfFOCOLUMN  00 
BEGIN 

IF  (ERRTAB ICURRINDEXRECNUM) .ELIST II , J) )  THEN 
BEGIN 

(•  eake  it  look  nice  on  the  screen  *) 

IF  (LINE  MOO  3  -  0)  THEN 
IRITELN(DEST,  IfFOTABLE  II  ,J)  t  B,  1:7,  J:G) 

ELSE 

URlTE(OEST,  INFOTABLECI  ,J1  :  B,  1:7,  J:B,'  ’); 

LHC  :-  LHC  ♦  1; 

(*  let  user  control  screen  scrolling  e) 

IF  (CONSOLE)  AND  (LINE  -  55)  THEN 
BEGIN 
IF1TELN; 

URITEI’Press  <RET>  to  continue  or  <ESC>  to  quit  :  ’); 

IF  GETCHAR  ( (OF  (RET)  ,CHR  (ESC) ) ,  TRUE,  TRUE,  TRUE)  -  CHR(ESC) 

THEN 

BEGIN 

CLOSE (DE5T, NORMAL); 

EXIT (CHECKINFOTABS) ; 

END; 

(*  start  new  screen  page,  write  header  again  *) 

PAGE (OUTPUT); 

URITELN(QEST, ’Subtest  :  ’ .DIRECTORY. TESTNAME) ; 

IFI TELNIOEST, * Thi s  itens  do  not  exist  in  database.’); 

URI  TELN(OEST) ; 

UR I TELN ( DEST , HE AOER ) ; 

LINE  1; 

ENO; 


382 
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END: 

END; 


(e  last  screen  page,  uait  till  user  wishes  to  continue  a) 

IF  (CONSOLE)  AND  (LINE  <>  1)  THEN 
BEGIN 
URITELN; 

URITECPress  <RET>  to  continue  or  <ESC>  to  quit  :  *); 

IF  GETCHAR(  CCHR(RET)  .CHR(ESC)) ,  TRUE,  TRUE,  TRUE)  -  CHR(ESC) 

THEN 

BEGIN 

CLOSE (DEST , NORflAL ) ; 

EX I T (CHECK  I NFOT ABS ) a 
END; 

FND: 


END; 

END; 

CLOSE  (OEST,  NORflAL); 

CLOSE (FI LED I RECTORY, NORMAL) ; 
END;  (*  list  infoerrs  *) 

BEGIN 

PAGE  (OUTPUT) ; 


(*  open  the  subtest  directories  file  •) 

RESET  (FI LEO I RECTORY, INDEXNAME) ; 

(«  ur  i  te  a  header  «) 

LINE  2; 

URITEC  SUBTEST  #  of  infotable  errors’); 

(«  initialize  error  counts  for  each  eubtest  *) 

FOR  I  0  TO  flAXSUBTESTS  DO 
ERRTABIII.ECNT  0; 

GOTOXY (0,2) ; 

(a  step  through  the  subteat  directories  fils  *) 

FOR  CURRINDEXRECNUT1  0  TO  flAXSUBTESTS  00 
BEGIN 

SEEK  (F I  LEO  I REC  TORY ,  CURR I  NOEXRECNUfl ) ; 

GET(FILEDIRECTORY); 


(•  if  a  subtests  exists  here  s) 

IF  NOT  (F I LEDI RECTORY^. UNUSED)  THEN 
BEGIN 


(a  get  the  directory  a) 

DIRECTORY  FI LED I REC TORY”; 

(a  load  infotable  for  this  subtest  a) 

LOAD  INFO  (CURR  I  NOEXRECNUfl) ; 

ERRORCNT  i>  0;  (a  initialize  running  count  of  errors  a) 

(a  look  through  the  entire  infotable  a) 

FOR  J  !-  1  TO  INFOROU  00 
BEGIN 

URITEC.’); 

FOR  l  1  TO  INFOCOLUfti  DO 
BEGIN 

(a  if  infotable  has  no  value  a) 

IF  INFOTABLE (I ,J)  <  0  THEN 
DSLOT  -1 

ELSE 

(a  return  the  slot  number  in  directory  if  any  a) 

DSLOT  SLOT  (INFOTABLE  II ,  JJ ) ; 

(a  negative  value  means  there  uas  no  such  item  in  directory  a) 

IF  DSLOT  <  0  THEN 

BEGIN 

ERRORCNT  ERRORCNT  +1;  (a  Increment  error  count  a) 


383 
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(*  update  error  aatrix  *) 

ERRTA8  [CURRINDEXRECNUni  .ELIST  II  ,J]  TRUE; 

END 

ELSE 

ERRTAB tCURRINDEXRECNUni .ELIST II, J)  FALSE; 

END; 

END: 

(«  update  total  errors  for  this  subtest  «) 

ERRTAB ICURR I NOEXRECNUni.ECNT  :■  ERROR CNTj 
BLANKLINES  (LINE, 1 .LINE) ; 

URI TE  (FI  LEO  I  RECTORY''.  TESTNAflE  I : 

GOTOXY (S0, LINE); 

UR I TELN (ERRORCNT ) ; 

LINE  LINE  +  1: 

END; 

ENO; 

CLOSE (FILEOIRECTORY.NORnAL) ; 

ItfUTECOo  you  uant  to  list  the  errors  7  Y/N  :  ’)j 
IF  GETCHARI  l’ Y* ,  *N* ,  *y* ,  *n*l , TRUE, TRUE, TRUE)  IN  [‘Y'.'y’]  THEN 
L1STINF0ERRS: 

END:  (*  Check  inf otab  •) 


V  V 


V  V 
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(sssassssassasassaasssssassaassssesssasssassaasasassaseassssMrss) 
(a  FILE  :  0. GRAFIX. TEXT  'include  file  for  O.MGR  *) 
(•File  last  Modified  :  liar  11,1383  *) 

(sasss  seas  ssssstsssssssaassasssasssaaeasasMsssasssst  assess  assess) 


(eeeesesaseeaeessssaaaeesaessaaseaseseaasaeeseeessesaeeeeatee) 

(*  checks  to  see  that  if  the  graphics  flag  is  set,  there  is  a) 

(a  a  foto  file  or  coapressed  file  out  on  the  voluae  catfoto  a) 

(a  It  works  by  turning  off  the  i/o  checking  ,  then  atteapting  a) 
(a  to  reset  the  grafix  file  in  question.  If  the  i/o  error  uas  a) 
(a  zero,  then  the  graphics  file  existed,  if  not,  then  we  keep  a) 
(a  track  of  the  errors.  a) 

(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaasaaaaaaaaaaaaaaaaaaaaaa) 
SEGMENT  PROCEDURE  CHECKGFILES: 


TYPE  (a  keeps  track  of  errors  for  each  i tea  a) 

ERRLIST  -  PACKED  ARRAY  10. .  MAX  1  TEffOOL]  OF  BOOLEAN: 


VAR  X.Z. 

LINE. 

CERRORS, 

FERRORS, 

GCNT, 

I. 

J  :  INTEGER: 


(a  used  as  counters  a) 

(a  keeps  track  of  line  on  screen  a) 

(a  count  of  coapressed  grafix  errors  a) 
(a  count  of  noraal  fotofile  errors  a) 

(a  total  grafix  count  in  subtest  a) 

(a  various  counters  a) 


STR,  (a  used  to  construct  filenaae  for  grafixs  a) 
OIGITSTR,  (a  from  the  i teacode.  a) 
FRAME  :  STRING; 

C  :  CHAR: 


(a  keeps  track  of  errors  for  each  subtest  a) 

GERRORS  :  PACKEO  ARRAY  [0. .MAXSUB TESTS!  OF  RECORD 

(a  nuaber  of  errors  a) 
GERRCNT  :  INTEGER: 

(a  graphic  error  a) 
a  I  ST, 

(a  krunched  error  a) 
KLIST  :  ERRLIST; 

END: 


(a  list  the  errors  in  the  infotable  a) 

PROCEDURE  LISTFOTOERRS; 

VAR  SELECT  :  CHAR; 

CONSOLE  «  BOOLEAN: 

HEADER  :  STRING; 

(a  get  the  output  destination  a) 

PROCEDURE  GETOUTOEST; 

BEGIN 

PAGE (OUTPUT); 

GOTOXY(20,0) ; 

URI  TEC  OUTPUT  SELECT  MENU’); 

GOTOXY (0,4) ; 

URITECSelect  one  of  the  following  options  by  entering  its  nuaber.'); 
GOTOXY (18, 8); 

URITEC1.  QUIT'); 

GOTOXY (16,3); 

URITEC2.  GRAPHICS  ERRORS  TO  CONSOLE’); 

GOTOXY  (16. 10)  l 

URI  TEC  3.  GRAPHICS  ERRORS  TO  PRINTER’); 

GOTOXY (16, 11); 

URITEC4.  GRAPHICS  ERRORS  TO  FILE'); 

GOTOXY (16. 18); 

URITECEnter  Choice  *  :  '); 

SELECT  i-  GETCHAR(  Cl’ . .  *4'] , TRUE, TRUE, TRUE) ; 

CONSOLE  FALSE; 

CASE  SELECT  OF 

•1'  t  EX IT (CHECKGFILES); 

•2'  :  BEGIN 

CONSOLE  TRUE; 

REURI TE (OEST, ’ CONSOLE; ’ ) ; 
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Lfi 


> 


END: 

*3*  t  REURI TE (OEST, UNI TNUMPRINTER) j 
•4*  :  GETNEUF1LE; 

END: 

END:  (s  getoutdsst  *) 


BEGIN  (*  I istfotoerrs  *) 

(*  get  destination  to  send  output  *) 

GETOUTDEST: 

PAGE (OUTPUT) : 

(«  open  the  eubtest  directories  file  «) 

RESET  (F1LED1RECT0RY, 1NDEXNAME) ; 

(«  scan  each  subtest  *) 

FOR  CURR I NOEXRECNUM  0  TO  20  DO 

BEGIN 

(»  if  there  were  soee  errors  «) 

IF  GERRORS ICURR I NOEXRECNUM] . GERRCNT  >  0  THEN 
BEGIN 

(*  get  the  subtest  directory  •) 

SEEK (F I LEO I RECTOR Y , CURR I NOEXRECNUM ) i 
GET (F1LED1RECT0RY) : 

IF  NOT  (FI LEOI RECTORY"'. UNUSED)  T)€N 
BEGIN 

DIRECTORY  FI LEO I RECTORY^: 

(*  ur i te  a  header  •) 

URI TELN (OEST): 

UR1 TELN(DEST) : 

URI TELN (DEST): 

PAGE (OUTPUT): 

URI TELNIOEST, ’Subtest  «  * .DIRECTORY. TESTNAME) : 

URI TELN (OEST, 

"This  itees  are  aissing  foto  files  or  coepressed  graphic  files.’): 

URITELN(OEST): 

lAI  TELNIOEST. 

’ I TEMCOOE  MISSING  GRAPHICS  ITEMCOOE  HISSING  GRAPHICS’): 

LIfC  >-  1: 

(e  scan  the  error  list  •) 

FOR  J  1  TO  MAXITEMPOOL  00 
BEGIN 

(e  if  an  itee  existed  in  this  directory  slot  and  there  *) 

(*  was  a  graphics  error.  *) 

IF  (GERRORS (CURR I NOEXRECNUM! .FLIST IJ] )  AND 
(DIRECTORY. I TEMCOOE  IJJ  >  0)  THEN 
BEGIN 

(e  if  the  error  was  a  compressed  grafix  error  «) 

IF  (GERRORS  ICURR  I  NOEXRECNUM).  KL I STIJ1)  THEN 
URI TE(0EST, DIRECTORY. ITEMCOOE  IJ)  :  6. 

*  coepressed  fils’) 

ELSE 

(*  the  error  uae  a  fotofile  error  e) 

URITE (OEST, DIRECTORY. ITEMCOOE  IJ1  :  S. 

*  fotofile  ’): 

LINE  LINE  ♦  1; 

(*  format  it  so  it  looks  nice  •) 

IF  000 (LINE)  THEN 
URI TELN (OEST) 

ELSE 

URI TE (OEST, ’  ’>: 

END: 


(«  allow  user  to  see  screen  without  scrolling  «) 
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IF  (CONSOLE)  AND  (LINE  -  38)  THEN 
BEGIN 
kRITELN: 

URITECPress  <RET>  to  continue  or  <ESC>  to  quit  :  ’); 

IF  G£TCHAR([CHR(RET),CHR<ESC)], TRUE,  TRUE. TRUE)  -  CHR(ESC) 

THEN 

BEGIN 

CLOSE  (OEST, NORMAL); 

EXIT(CHECKGFILES) s 
END; 

(a  ur its  a  new  page  of  output  to  screen  and  the  header  a) 

PAGE (OUTPUT): 

URI  TELNCSubtest  :  ’ .DIRECTORY. TESTNAFE) : 

URITELNt 

’This  i teas  are  aissing  foto  files  or  coapressed  graphic  files.*); 
URITELN; 

URITELN( 

’  I TEMCOOE  HISSING  GRAPHICS  1TEHCOOE  HISSING  GRAPHICS’ ) ; 

LINE  1; 

END; 

END; 

(«  al lou  user  to  see  the  last  page  without  scrolling  a) 

IF  (CONSOLE)  AND  (LINE  <>  1)  THEN 
BEGIN 
URITELN: 

URITECPress  <RET>  to  continue  or  <ESC>  to  quit  :  ’)? 

IF  GETCHAR  ( (CHR  (RET).  Ctf?  (ESC)  I.  TRUE.  TRUE,  TRUE)  -  CHRlESC) 

THEN 

BEGIN 

CLOSE (DEST. NORMAL): 

EXIT (CHECKGFILES) ; 

END: 

END: 

END; 

END: 

END: 

CLOSE (OEST, NORMAL) ; 

CLOSE (FI LED I  RECTORY, NORMAL) ; 

END:  (*  list  FOTOerrs  «) 


(*  searches  through  the  directory  looking  for  questions  •) 

(a  with  graphics  flags  on,  then  checks  if  file  is  on  voluae  a) 
PROCEDURE  GSEARCH: 

VAR  OATASLOT  i  INTEGER: 

BEGIN 

(e  open  the  question  data  files  a) 

RESET (FILEITEM1NF0.DATANAME) ; 

scan  the  entire  directory  a) 

F jfl  J  1  TO  MAXITEHPOOL  DO 
BEGIN 

(a  initialize  error  flags  a) 

GERRORS ICURR I NOEXRECNUM) . FL I  ST  IJI  «-  FALSE; 
GERRORSICURRINOEXRECNUM) .KLIST (JI  FALSE; 

(a  indicate  that  soaething  Is  happsning  a) 

IF  J  MOO  10  -  0  THEN 
IfllTEC.’); 

(a  if  an  itea  exists  in  this  data  slot  a) 

IF  DIRECTORY. I TEMCOOE  IJI  >  0  THEN 
BEGIN 

(a  get  the  record  nuaber  where  its  data  exists  a) 
OATASLOT  HASH(J); 

(a  get  its  data  a) 

SEEK (F I LE I TEM I NFO , DATASLOT) ; 
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GET  (FILE1  TEfllNFO); 

ITEMINFO  FILEITEflINFOAs 

(a  if  the  graphics  flag  is  set  a) 

IF  I TEM INFO. GRAPH ICS  THEN 
BEGIN 

(a  update  count  of  graphics  for  this  subtest  *) 
GCNT  GCNT  +  Is 

(a  sake  the  file  name  for  the  graphic  question  *) 
(a  change  an  integer  to  a  string  value  a) 
OIGITSTR 
STR  ”s 

IF  J  >  5  THEN 
Z  (DIRECTORY.  I TEflCOOElJJ 

ELSE 
Z  s-  Js 

REPEAT 

X  Z  flOO  10; 

C  s •  CHRIX+48) s 
OIGITSTR  III  C; 

STR  CONCAT (OIGITSTR, STR); 

Z  Z  01 V  10; 

UNTIL  Z  <-  0s 

0IGITSTRI11  CHR(CURRIN0EXRECNUM+6S)s 
C  s-  OIGITSTR  Ill  s 

(«  if  the  question  is  a  coepressed  grafix  •) 

IF  ITEMIfFO.OUrtlYl  -  1.0  THEN 
BEGIN 

(a  check  if  saeple  question  e) 

IF  J  <  6  THEN  (e  it  is  sample  question  e) 

FNAflE  :•  CONCAT (’/CATFOTO/ ’  ,DIGI TSTR.  ’DIR/G’ , 
OIGI TSTR, *SQ* .STR, * .DATA’ ) 

ELSE 

FNAflE  CONCAT  C/CATFOTO/ ’.OIGI  TSTR.  ,0IR/G,t 

OIGI  TSTR.  STR/.  DATA’); 

(«  see  if  it  is  out  on  catfoto  voluae  *) 

(*•!-•) 

RESET (OEST.FNAnE); 

(a#Wa) 

(a  error  occured  *) 

IF  I ORE SUL T  <>  0  THEN 
BEGIN 

CERRORS  s-  CERRORS  ♦  Is 

GERRORS  tCURRINOEXRECNUni  .FLISTU1  I-  TRUE; 
GERRORS ICURR I NOEXRECNUTU  .XLISTUI  TRUE; 
ENO; 

aOSE  (OEST,  NORMAL): 

END 

ELSE 

BEGIN 

(e  check  if  sample  question  a) 

IF  J  <  6  THEN  (*  it  uas  sample  question  a) 

FNAflE  s-  CONCAT (’ /CATFOTO/’ .OIGI TSTR, ’OIR/G’ , 
OIGI  TSTR/SQ’, STR, ’.FOTO’) 

ELSE 

FNAflE  i-  CONCAT <’ /CATFOTO/’, OIGITSTR, ’OIR/G’, 
OIGI TSTR, ’Q’, STR, ’.FOTO*); 

(a  see  if  it  is  out  on  disk  a) 

(aSI -a) 

RESET  (OEST, FNAflE); 

(alUa) 

(a  error  occured  a) 

IF  IORESULT  <>  0  THEN 


v-.-Vv  -'V-.-'r.'--  .  vv*v 
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BEGIN 

FERRORS  FERRORS  +  Is 
GERRORSICURRlNOEXRECNUm.FLISTUl  :-  TRUE: 

END: 

CLOSE (DEST, NORMAL) : 

ENO;  (a  if  it  was  a  noraal  or  coepressed  graphics  a) 
END:  (*  if  it  uas  a  graphics  *) 

END:  (*  if  there  uas  an  i tea  at  this  slot  *) 

END;  (*  loop  uhich  looks  at  entire  directory  a) 

CLOSE (F I LE ITEM INFO, NORMAL ) ; 

ENO;  («  gsearch  a) 


BEGIN 

PAGE (OUTPU’' ; 

(a  open  the  subtest  directories  file  a) 

RESET (FILEDIRECTORY, I NOEXNAME) ; 

(a  urite  a  diagnostic  header  a) 

LINE  :-  2; 

URITE ( 

*  SUBTEST  U  of  graphics  foto  errs  krunch 

GOTOXY (0,2) ; 


(a  look  at  each  eubteat  directory  record  a) 

FOR  CURRINOEXRECNUM  :-  0  TO  HAXSUBTESTS  00 
BEGIN 

(a  initialize  error  count  a) 

GERRORS [CURRINOEXRECNUM] .GERRCNT  :-  0. 

(a  check  if  there  is  a  subteat  a) 

SEEK (FILEDIRECTORY. CURR I NOEXRECNUM ) ; 

GET  IF I LED I RECTORY); 

IF  NOT  (F I  LEO  1  RECTORY'*.  UNUSED )  THEN 
BEGIN 

(a  get  the  subtest  directory  a) 

DIRECTORY  :-  FILEOIRECTORY*; 

(a  initialize  errors  a) 

FERRORS  :-  0; 

CERRORS  :-  0; 

GCNT  :-  0; 

(a  look  at  each  itea,  if  the  grafix  flag  ie  set,  and  if  so  a) 
(a  If  there  ie  a  graphics  file  for  the  question.  a) 

GSEARCH; 

(a  write  out  diagnostic  inforaation  a) 

BLANKL I NES (L I NE , 1 , L I NE) ; 

UR I TE (F I LEO I RECTORY*. TESTNAME ) ; 

GOTOXY (42.LINE); 

URITE (GCNT); 

GOTOXY (55, LINE); 

URITE (FERRORS); 

GOTOXY (70, LINE); 

URITELN (CERRORS); 

LINE  :-  LINE  +  1; 

GERRORS (CURRINOEXRECNUM) .GERRCNT  :-  CERRORS  +  FERRORS; 

END; 

ENO; 

CLOSE (FILEDIRECTORY, NORMAL) ; 

CLOSE (OUTF I LE, NORMAL) ; 

URITE (’Do  you  want  to  list  the  errors  ?  Y/N  :  ’); 

IF  GETCHARU’Y’.’N’.’y’.’n’). TRUE, TRUE, TRUE)  IN  I’Y’.’y’)  THEN 
LISTFOTOERRS; 

ENO;  (a  CheckGFILES  a) 


errs’ ) ; 
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letS-^e) 


(aaaa 

(a 

(a 

(a 

(a 

Textfile  s  MISC/CATFFORMAT. TEXT 
Codefile  s  KATFFORMAT . COOE 

Voluae  s  TFILES 

Voluae  s  CATOATA 

a 

a 

a 

a 

^***^*** 

la 

DEC.  1.  1982 

NPRDC 

a 

(a  a 

[*  Description  i 

[«  This  prograa  foraats  the  files  needed  to  start  up  a  CAT  systea.  It 
[a  initializes  the  files  to  a  prescribed  size  .  The  files  it  mil  set  up 
[a  are  those  files  needed  for  the  subtest  database,  the  exaainee  database, 

'a  the  systea  startup  datafile,  and  the  infotable  datafiles.  This  prograa 
should  be  used  uith  caution  because  initializing  files  Beans  that  ANY 
[a  EXISTING  FILES  UHICH  ARE  REINITIALIZED  UILL  CAUSE  EXISTING  DATA  TO  BE  LOST. 
!e 


PROGRAM  FORHATFILESi 

CONST  («  ascii  values  *) 

BELL  -  7; 

NIL  -  -1; 

MAX  I TEMBUF  -  511  j 
GMAXSUBTEST  -  28s 

TYPE  («  different  types  of  uays  to  ansuer  a  question  e) 

ITEfWESPONSES  -  (CHAR VALUE,  (e  noraal  aultiple  choice  e) 

INTVALUE,  (*  integer  value  as  ansuer  «) 

SEVENCHR);  (e  seven  characters  saved  as  ansuer  a) 


(a  type  of  question  response  e) 
SEVENTYPE  -  PACKED  ARRAY  tl.  .71  OF  CHAR; 


(e  all  characters  «) 

SET OF CHAR  .  SET  OF  CHARs 


VAR  COMMAND, 

OUTPUT  :  char;  (a  duaay  variable  for  page  function  a) 


(a  read  an  acceptable  character  froa  'he  keyboard  a) 

FUNCTION  GETCHARIOKSET  i  SET OF CHARs 

FLUSHQUEUE , ECHO , BEEP  s  BOOLEAN)  s  CHARs 
VAR  MASK  :  PACKED  ARRAY  [0. . 8)  OF  CHARs 
BEGIN 

IF  FLUSHQUEUE  THEN  UNITCLEAR(2)s  <*  flush  buffer  a) 

REPEAT 

UNI  TREAD (2, MASK, 1) s 

IF  BEEP  AND  NOT  (MASK  10]  IN  OKSET)  THEN  WRITE (CHR (BELL) ) s 
UNTIL  MASK  18)  IN  OKSET; 

IF  ECHO  AND  (MASK [0]  IN  tCHR(32) ..CHRC12S)] )  THEN 
WRITE  (MASK  (01 )  s 
GET  CHAR  i-  MASK  10]  s 
END;  (a  getchar  a) 


(a  clear  screen  a) 

PROCEDURE  PAGE (OUMMY  s  CHAR); 
BEGIN 

URI  TE(OR(28> )  s 
GOTOXY (8,0) s 
END;  (a  page  a) 


(a  initialize  the  test  directory  a) 
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PROCEDURE  SUBTESTFORMAT; 

CONST  DATANAflE  -  'CATOATA:  ITEMPOOL.DATA*  t  (*  question  data  *) 

TEXTNAME  »  ’QTEXT: ITEMTEXT.DATA’ ;  Im  question  text  *) 

I  NOEXNAME  •  ’CATOATA: TEST  INDEX. DATA’ ;  (*  test  directory  *) 

(*  slots  available  in  test  directory,  0  -  20  *) 

flAXSUBTESTS  -  20; 

(«  maxiaua  question  pool  per  test,  0  -  300  e) 

MAX I TEMPOOL  -  300; 

TYPE  (*  test  directory  *) 

DIRDATA  -  PACKED  RECORD 

UNUSED  :  BOOLEAN; 

TESTNAME  ;  STRING: 

I TEMCOOE  :  PACKED  ARRAY 

[0..MAXITEMPOOL1 

OF  INTEGER;  (*  question  code  0  *) 

END; 

(*  question  ptrs/data  ,  information  for  each  question  *) 

ITEMOATA  -  PACKED  RECORD 

GRAPHICS  ;  BOOLEAN; 

LOUANSUER. 

HIGHANSUER  :  CHAR; 

I TEMBLOCX, 

ITEfPTR, 

ANSUERCOUNT  :  INTEGER; 

A.B.C. 

PROPCORRECT, 

POINTBISERI AL, 

YOPT, 

XOPT, 

OUMMY1, 

0irf1Y2. 

0UTtlY3  ;  REAL: 

CASE  ATYPE  t  I TEMRESPONSES  OF 
CHARVALUE  >  (ANSWER  :  CHAR); 

I  NT  VALUE  ;  (INTANSUER  ;  INTEGER); 

SEVENO*  :  (OfiANSUER  :  SEVENTYPE); 

END; 

VAR  I  :  INTEGER: 

CURR8LOCK, 

CURRFREEPTR, 

CURR I NOEXRECNUTI  ;  INTEGER; 


(«  block  of  ascii,  control  codes  e) 

ITEMBUF  :  PACKED  ARRAY  (0..  MAXI  TEJBUF]  OF  0..139; 


(*  test  directory  *) 

DIRECTORY  :  DIRDATA; 
FILEDIRECTORY  :  FILE  OF  OIRDATA; 


(a  test  question  ptrs/data  e) 
ITEMINFO  :  ITEMDATA; 

FI  LEI TEMINFO  :  FILE  OF  I TEFEATA; 


(«  file  of  ascii  codes,  control  0’s  e) 
ITEMTEXT  :  FILE; 


(*  with  data  for  that  question  *) 

FUNCTION  HASHIKEY  :  INTEGER)  ;  INTEGER: 
BEGIN 
HASH 

(CURR I NDEXRECNUM  e  MAXITEMPOOL) 

+  KEY  +  CURRINOEXRECNUU; 
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END:  (e  hash  *) 


(*  eaves  value  of  free  space,  block  8  bgte  ptre) 
(*  in  block  0,  bgtes  0. .3  of  text  file  e) 

PROCEDURE  SAVEPTRS; 

VAR  TRIX  :  RECORD  CASE  INTEGER  OF 

1  :  (TUOBYTES  :  PACKED  ARRAY 

[0 , . 1 }  OF  CHAR): 

2  :  (I  NT  VALUE  :  INTEGER)*. 

END; 


(*  writes  the  i tee  ascii  buffer  to  diekfile  *) 
PROCEDURE  UR I TE I TEMBLOCK (UH 1 CHBLOCK  :  INTEGER): 

VAR  BLOCKS TRANSFERRED, 

ERRNUO  :  INTEGER: 

BADIO  :  BOOLEAN: 

BEGIN 

BADIO  FALSE: 

RESET ( I TEMTEXT. TEXTNAME) : 

8L0CKSTRANSFERRED 

BLOCKURI  TE ( I TEflTEXT,  I TEfBUF.  1 .  WICHBLOCK) : 

BADIO  < (BLOCKSTRANSFERRED  <  1)  OR  ( I  ORE SUL T  <>  0) ) t 
ERRNW1  IORESULT: 

CLOSE  (I  TEflTEXT.  LOCK): 

IF  BAOIO  THEN 
BEGIN 

URI TELN;URI TELN: 

URITECBlock  write  io  error  U  ’.ERRNUTI): 

URI TELN; 

URITELNCPoseiblg  no  rooe  to  expand  ’.TEXTNATE); 

UR I TELN (’Must  have  unused  spare  at  end  of  file’); 
URITELNCor  put  file  at  end  of  directorg.  ’ ) ; 

UR I TELN; 

REAOLN; 

EXIT(PROGRAfl); 

END; 

END;  (a  wri tei teeblock  e) 


(e  reads  a  block  froe  disk  into  the  i tee  ascii  buffer  «) 
PROCEDURE  READ  I  TEMBLOCK  (LtilOGLOCK  :  INTEGER); 

VAR  BLOCKSTRANSFERRED, 

ERRNUTI  :  INTEGER; 

BAOIO  :  BOOLEAN; 

BEGIN 

BADIO  FALSE; 

RESET  ( I  TEflTEXT,  TEXTNATE) ; 

BLOCKSTRANSFERRED 

BLOCKREAD  ( I  TEflTEXT,  I TEfBUF ,  1 , UHI CHBLOCK ) ; 

BAOIO  I  (BLOCKSTRANSFERRED  <  1)  OR  (IORESULT  <>  0)); 
ERRNUTI  i-  IORESULT; 

CLOSE  1 1  TEflTEXT,  LOCK); 

IF  BADIO  THEN 
BEGIN 

UR I TELN; UR I TELN; 

URI  TE  (’Block  read  io  error  U  ’, ERRNUTI); 

UR I TELN; 

URI TELNI’Cant  read  *, TEXTNATE); 

URI TELN; 

REAOLN; 

EXIT (PROGRAM); 

END; 

END; 

BEGIN  (e  eaveptrs  *) 

READI TEH8L0CK (0) ; 

TRIX. INTVALUE  CURRBLOCK; 

flOVELEF T  ( TR I X.  TUOBYTES  (0) ,  I  TEfBUF  10) .  2) ; 

TRIX. INTVALUE  s-  CURRFREEPTR; 
flOVELEFT  (TRIX.  TUOBYTES  [01 , 1  TEfBUF  I2J , 2) ; 

URITEITEfBLOCK(B); 


MICROCOPY  RESOLUTION  TEST  CHART 
NATIONAL  burlau  OT  STANDARDS  1%J  a 


V 
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END;  («  save  ptre  «) 


BEGIN  <*  stfileforeat  *) 

PAGE (OUTPUT): 

URITELN: 

URITEC  Are  you  sure  you  uant*); 

URITEC  to  2ero  the  directory  ?  Y/N  '); 

IF  GETCHARI  t’y’ ,  *n‘ . '  V* ,  *N'l , TRUE, FALSE,  TRUE)  IN  t*  Y* .  'y*l  THEN 
BEGIN 
URITELN; 

URITELN; 

URITEC  Zeroing  directory'); 

OIRECTORY. UNUSED  TRUE; 

FOR  I  0  TO  MAXI TEflPOOL  00 
DIRECTORY. I TEMCOOE II I  NIL; 

RE UR I TE (F I  LED I RECTORY . I NOEXNAME ) ; 

FOR  I  0  TO  MAX SUB TESTS  DO 
BEGIN 

URITEC.'); 

SEEK  (FILEOIRECTORY, I ! : 

FI  LED  I  RECTORY"'  Oi  “ECTORY; 

PUT  (FILEDIRECTOf 
END: 

CLOSE  (FILEDIRECTORY. LOCK) ; 

CURR I NOEXRECNUM  MAXSUBTESTS  -  1; 

1  HASH (MAX I TEMPOOL ) ; 

REURI  TE  (FILEI TEMINFO,  DATANAfE) ; 

SEEKIFILEITEMINFO. I) ; 

CLOSE  (FILEITEHINFO, LOCK) ; 

REURITE(ITEMTEXT.TEXTNAHE); 

I  BLOCKURITE(ITEMTEXT,ITEMBUF,1,0); 

CLOSE ( I TENTEXT, LOCK); 

CURRBLOCK  0; 

CURRFREEPTR  4; 

SAVEPTRS; 

END; 

END;  («  etzerodi rectory  *) 


(***=*  initialize  the  exaeinee  files  ****) 

PROCEDURE  E FORMAT; 

CONST  EINDEX  -  'CATDATAiEINOEX.DATA* :  («  exaeinee  directory  *) 

IfFONAME  -  'CATDATAsEINFO.DATA* ;  l*  exaeinee  data  *) 

RESULTS  •  ' CA TDATA: ERE  SUL TS.  DATA’ ;  (*  exaeinee  test  scores  •) 

PINFONAME  -  ’CATDATA:EPOATA.DATA’ ;  (»  exaeinee  personal  data  *) 

OONEINOEX  -  'CA TDATA: DONE -DIR. DATA’;  (e  done  exaeinee  directory  *) 

DONEINFO  -  'CATDATA:DOfC-INFO.DATA' ;  («  done  exaeinee  test  info  •) 

OONERESULTS  -  ’CATDATAtOONE-RSLTS.DATA’ ; («  done  test  results  s) 
DONEPINFO  -  ’CA TDATA: DONE -EPO.OATA’i  (*  done  personal  data  *) 

(*  slots  available  in  exaeinee  directory,  0  -  50  *) 

MAXEXAM I NEE  -  50; 

(e  eax  $  of  questions  you  can  give  per  test  *) 

QUESTIONS  -  20; 


TYPE  (*  social  security  nuaber  e) 

IOTYPE  -  PACKED  ARRAY [0.. 8)  OF  CHAR; 

(*  exaeinee  directory  «) 

INDEX  -  PACKED  ARRAY10. .HAXEXAMINEE1  OF  PACKED  RECORD 

UNUSED  :  BOOLEAN; 
10  ;  IOTYPE; 

END; 


(«  exaeinee  testing  data  s) 
EXAMEINFO  -  PACKED  RECORD 

ID  :  IOTYPE; 
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ORIENTATION.TinE, 

PREV_TWEJLASTTEST, 

NUnPROC. 

TOTTinECONSOLE. 

NUnERRORS, 

LASTTEST  t  INTEGER) 

DATE  t  PACKED  ARRAY (0.. 51  OF  CHAR: 

TIME  t  PACKED  ARRAY (0.. 31  OF  CHAR: 

TESTOROER, 

STRATEGY. 

TESTLENGTH  »  PACKED  ARRAY (1. .GMAXSUBTEST) 

OF  0..128: 

CKERROR  :  ARRAY [1. .GHAXSUB TEST]  OF  REAL: 

SUBSTOP  :  PACKED  ARRAY [1. .GMAXSUBTEST]  OF  BOOLEAN: 
END: 


(*  question  scores  .  data  on  exaainee  uith  respect  to  question  s) 
I  TEN  -  PACKED  RECORD 

ACORRECT  :  PACKED  ARRAY [0..BJ  OF  BOOLEAN: 

ACOUNT, 

ITEITUn  :  INTEGER: 

CORRECT  :  BOOLEAN: 

THETA. 

ERROR. 

LATENCY  :  REAL: 

CASE  RTYPE  i  ITEWESPONSES  OF 
CHARYALUE  :  (RESPONSE  :  CHAR): 

INTVALUE  :  (INTRESPONSE  i  INTEGER): 

SEVENCHR  :  (CHRRESPONSE  :  SEVENTYPE); 

END: 


(s  test  scores  of  examinee  results  *) 

SUBTEST  -  PACKED  RECORD 
STTIOE. 

STINSTRTME, 

STPROCTCALLS, 

STERRKEY  :  INTEGER: 

NUrtlTEnS, 

NUTCORR  :  0..128: 

ESTABIL1TY. 

VARIANCE  <  REAL:  . 

1  TEH INFO  :  PACKED  ARRAY  10. .QUESTIONS)  OF  ITEM: 

END; 


(e  examinee  personal  data  •) 

PINFOREC  -  RECORO 

LASTNATE  «  PACKED  ARRAY (0.. 141  OF  CHAR; 
FIRSTNAflE  :  PACKED  ARRAY [0.. Ill  OF  CHAR: 
MINITIAL  :  CHAR: 

CURRAOORESS, 

HONEOFREC  :  PACKED  ARRAY (0..1)  OF  CHAR: 
CITIZENSHIP  :  PACKED  ARRAYI0..3)  OF  CHAR: 
SEX  :  CHAR: 

POPGROUP  »  PACKED  ARRAY [0.. 41  OF  CHAR: 
ETHNIC  :  PACKED  ARRAY  10.. 1)  OF  CHAR: 

HARI TAL  :  CHAR: 

DEPE* HANTS  :  PACKED  ARRAY  10.. 1)  OF  CHAR: 
BIRTHDATE  >  PACKED  ARRAY [0.. 7]  OF  CHAR: 
EDUCATION  :  PACKED  ARRAY  10.. 21  OF  CHAR: 
TEST  ID  «  PACKED  ARRAY  10.. 21  OF  CHAR: 

AFQT  :  PACKED  ARRAY [0.. 11  OF  CHAR: 

ASVAB  i  PACKED  ARRAY  [0. . 431  OF  CHAR: 
ENLISTOATE. 

ACTSERDATE  :  PACKED  ARRAY  10.. 7)  OF  CHAR: 
ENL  t  PACKED  ARRAY  (0. . 41  OF  CHAR: 

AFEES  :  PACKED  ARRAY  10.. 1)  OF  CHAR: 
SOHETHING  :  PACKED  ARRAY  10.. 3]  OF  CHAR: 
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VAR  MAXRECOROS. 

I  t  INTEGER) 

(e  exaainee  teat  taking  data  a) 
EXAMINEE  t  EXAMEINFO) 
FILEEXAMINEE  i  FILE  OF  EXAMEINFO; 

(«  exaeinee  directory  a) 

DIR  i  INDEX; 

ED1R  >  FILE  OF  INDEX) 

(a  exaainea  teat  reauita  a) 

TESTS  t  SUB TEST j 
FILETESTS  ;  FILE  OF  SUBTEST; 

(a  exaainea  personal  data  a) 
PINFO  s  PINFOREC; 

PINFOFILE  )  FILE  OF  PINFOREC; 


(a  foraat  the  exaainea  directory  for  the  seaaion  exaaineea  and  a) 
(a  the  done  exaainee  files.  a) 

PROCEDURE  MAKEDI RECTORY; 

BEGIN 

FOR  I  0  TO  MAXEXAMINEE  DO 
OIRIH. UNUSED  TRUE) 

REURI TE (EDI R,E INDEX) ; 

SEEK  (EOIR.0) ) 

EOIR*  )-  DIR; 

PUT(EDIR); 

CLOSE (EOIR. LOCK); 

REURI  TE  (EOIR.OONEIKJEX) ; 

SEEK (EOIR.0) ; 

EDIR*  DIR; 

PUT  (EDI  R)  i 
CLOSE (EOIR. LOCK) ; 

END;  (a  aaka  directory  a) 


(a  foraat  the  filea  containing  the  teat  taking  inforaation  a) 
PROCEDURE  MAKETIffO; 

BEGIN 

UITH  EXAMINEE  DO 
BEGIN 

ID  ’  *; 

LASTTEST  »-  10;  (a  aark  no  teata  taken  yet  a) 

NUMPROC  8; 

TOTTIHECONSOLE  «-  0; 

NUMERRORS  0; 

PREVTIMELASTTEST  «-  0; 

ORIENTATIONTIME  0; 

END; 

REUR I TE (F I LEEXAM I  NEE , I  tFONAME ) ; 

SEEK (FILEEXAMINEE, 0); 

FOR  I  0  TO  MAXEXAMINEE  DO 
BEGIN 

FILEEXAMINEE*'  EXAMINEE; 

PUT  (F I  LEEXAM!  fCE) ; 

END; 

CLOSE (FI LEEXAM I  fCE, LOCK) ; 

REURI  TE  (F I  LEEXAM  I  NEE .  DONE  I  ffO) ; 

SEEK (F I LEEXAM I NEE, 0); 

FOR  I  0  TO  MAXEXAMINEE  DO 
BEGIN 

FILEEXAMINEE*  EXAMINEE; 

PUT (FILEEXAMINEE); 

END; 

CLOSE (F I LEEXAM I  NEE , LOCK ) ; 


Feb  17  Ili08  1983  fllSC/CATFFORflAT. TEXT  (  Formats  new  files  for  system)  Page  7 


END i  (a  sake t info  a) 


(*  foraat  the  files  containg  tasting  results  information  *) 
PROCEDURE  FORMATRESULTSFILE; 

BEGIN 

MAXRECORDS  :•  (MAXEXAMINEES  *  GMAX SUBTEST)  ♦  GMAXSUBTEST ; 

UITH  TESTS  DO 

BEGIN 

STTIME  0; 

STINSTRTIME  s-  8< 

STPROCTCALLS  8-  0| 

STERRKEY  8-  0; 

NUM ITEMS  8-  0i 
NUMCORR  8-  0; 

ESTABIL1TY  8-  0t 
END; 

REUR I TE (FI LETESTS, RESULTS) j 
SEEK (FILETESTS.0) i 
URITELN; 

FOR  I  8-  0  TO  MAXRECORDS  DO 
BEGIN 

IF  (I  MOO  18)  -  0  THEN 
WRITE ('.*); 

FI LETESTS*  8-  TESTS; 

PUT (FI LETESTS) j 
END; 

CLOSE (FILETESTS.LOCK); 

REUR I TE (FI LETESTS. DONERESULTS) ; 

SEEK (FILETESTS.0) ; 

URITELN; 

FOR  I  0  TO  MAXRECORDS  DO 
BEGIN 

IF  (I  MOO  10)  -  0  THEN 
URITEC .  * ) ; 

FILETESTS*  TESTS; 

PUT (FILETESTS) ; 

EM); 

CLOSE (FILETESTS. LOCK); 

END;  (*  foraatresul tsf i Is  a) 


(a  foraat  the  personal  data  file  a) 
PROCEDURE  MAKEPERSONALINFO; 


BEGIN 

UITH  PINFO  DO 
BEGIN 

LASTNATC  ’  *; 

FIRST NAME  t-  *  ’; 

MINITIAL  *  *; 

CURR ADDRESS  i-  ’ 

HOMEOFREC  i-  ’  ’; 

CITIZENSHIP 
SEX  ’  ’; 

POPGROUP 
ETHNIC  ;-  *  *t 
MARITAL 

DEPENDANTS  t-  ’  '; 

BIRTHDATE  ;-  *  ’; 

EDUCATION  ’  ’; 

TESTID  ’  *; 

AFQT  8-  ’  ’; 

ASVAB  •  ’; 

ENLISTDATE  *  ’; 

ACTSEROATE  *  ’; 

ENL  *  '; 

AFEES  *  '; 

SOMETHING 

END; 


REURI TE(PINFOFILE.PINFONAME) ; 
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SEEK (PINFOFILE, 8) j 

FOR  I  0  TO  50  00 
BEGIN 

PINFOFILE*  PINFO; 

PUT (PINFOFILE) ; 

END: 

CLOSE  (PINFOFILE. LOCK): 

REUR I TE (P I NFOF I LE . DONEP I NFO> : 
SEEK (PINFOFILE, 0) ; 

FOR  I  0  TO  S0  00 
BEGIN 

PINFOFILE'1  s-  P1NF0; 

PUT (PINFOFILE); 

ENO; 

CLOSE (PINFOFILE, LOCK) ; 

ENO;  (*  aakepersonal info  *) 


BEGIN  (*  eforeat  *) 

PAGE (OUTPUT); 

URITELN; 

URITELNC  Are  gou  sure  you  want'); 

URITE(’  to  zero  the  directory?  Y/N  t  *)j 

IF  GETCHARI  CY’  ,’N*] .TRUE .TRUE, TRUE)  -  *Y*  THEN 

BEGIN 

(e  HAKED I RECTORY;  e) 

MAKETINFO; 

FOROATRESULTSF I LE : 

(e  MAKEPERSONALINFO:  e) 

ENO; 

END:  («  eforeat  e) 


(e  Initialize  the  startup  foraat  e) 

PROCEDURE  STARTUPFOfiflAT; 

CONST  SETUPOATA  -  'CATOATA: PARAMETERS. DATA’ ;  (e  test  default  paraaeters  e) 

TYPE  (*  set-up  paraaeters  a) 

SETUPINFO  -  PACKED  RECORD 
SUBORDER 

SUBSTRAT’  :  PACKED  ARRAY II.. GMAXSUBTEST1 

OF  8.. 128: 

ITETFB, 

ITEHOUTPUT. 

SUBTESTFB, 

SUBTESTOUTPUT, 

SESSION, 

SESSI ONOUTPUT  «  8.. 128; 

SUBSTOP  :  PACKED  ARRAY  Cl ..  GflAXSUBTESTI  OF  BOOLEAN: 

SUBLENGTH  :  PACKED  ARRAY  El. .GOAXSUBTEST] 

OF  8.. 128; 

CKERROR  :  ARRAY  El .. GHAXSUBTEST1  OF  REAL; 

END; 

VAR  I  :  INTEGER; 

(aaa  set-up  variables  a**) 

SPARAHS  t  SETUPINFO; 

FILESPARAJ1S  :  FILE  OF  SETUPINFO; 

BEGIN 

PAGE  (OUTPUT) ; 

URITELN; 

URITELNC  Are  you  sure  you  uant’): 

URITEC  to  zero  the  paraester  file.  Y/N  ;  *); 

IF  GETCHARICy’/Y’.’N’.’n'), TRUE, TRUE, TRUE)  IN  t’yVY’l  THEN 
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BEGIN 

UITH  SPARAHS  00 
BEGIN 

FOR  1  1  TO  GMAXSUBTEST  DO 

BEGIN 

SUBORDER!!]  t-  128: 
SUBSTRATCI]  0: 

SUBSTOP  til  FALSE: 
SUBLENGTH  III  0: 
CKERRORIIJ  t-  1.0: 

END; 

ITEMFB  0: 

ITEMOUTPUT  :-  0: 

SUBTESTFB  0: 

SUBTESTOUTPUT  i-  0: 

SESSIONFB  0: 

SESSIONOUTPUT  :-  0t 
END: 

REVJRI TE  (FILESPARAMS,  SETUPOATA) : 
SEEK (F I LESP ARAMS , 0) : 
FILESPARAMS^  SPARAHS: 

PUT (FILESPARAMS) : 

CLOSE (F I LESP ARAMS, LOCK) : 

END: 

END;  (e  atar tupforeat  •) 


(e  infotable  filea  initialization  *) 
PROCEDURE  INFOSETUP: 

CONST (e  inforeation  tabiee  e) 

TABMAME  -  ’CATOATA: TABINFO.OATA* : 


(«  inforeation  table  dieensiona  e) 
INFOROU  -  36: 

INFOCOLUTM  -  20: 

MAXSUBTESTS  -  20: 


TYPE  TABLE  -  ARRAY  II. . IfFOCOLUTN, 1. . INFOROU)  OF  INTEGER: 


VAR  COTtlAND  :  CHAR: 

I.J  :  INTEGER: 

INFOTABLE  <  TABLE: 

INFOFILE  <  FILE  OF  TABLE: 


BEGIN  (e  infoeetup  *) 

PAGE (OUTPUT): 

URITELNCAre  you  aura  you  uieh  to  initialize?’): 

URITELN('Thie  will  deatroy  all  exieting  info-*): 

IRITELNf  tablet,’): 

IF  GETCHARd’Y’.’N’.'n’.’y*  I,  TRUE,  FALSE,  TRUE)  IN  I’Y’.’y’)  THEN 
BEGIN 
VfUTELN: 

URITEt’Last  chance!  Do  you  uieh  to  initialize?'): 

IF  GETCHARd’YVNVnVy’J.TRUE.FALSE.TRUE)  IN  t’Y’.’y’J  THEN 
BEGIN 

FOR  J  1  TO  INFOROU  00 
FOR  I  1  TO  INFXOLUMN  00 
INF0TA8LE II , Jl  NIL: 

REWRITE (INFOFILE, TABNAME) : 

PAGE  (OUTPUT): 

URITEC  Initial  izing’ ) ; 

FOR  I  :-  0  TO  ((MAXSUBTESTS  *  2)  ♦  1)  00 
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SEEK (INFOFILE, I ) : 
INFOFILE"  INFOTABLE: 
PUT (INFOFILE): 

END: 

CLOSE ( INFOFILE, LOCK)  i  . 
END; 

END; 

END;  («  ini tf i la  *) 


(a  giva  naming  aessaga  a) 

PRO&DURE  UARNING; 
var  chr  :  char; 

BEGIN 

PAGE (OUTPUT): 

URl  TELNC 
ur i tain; 
ur  i  ta I n ( * 
nr  i  taln(* 
ur i tain (’ 
ur  i  toln(* 
ur  i  ta  I  n  ( ’ 
ur  i  telnC 
ur  i  telnC 
ur i tain; 

URITELN; 

URITELN; 

uriteC  DO  YOU  UISH  TO  CONTINUE  ?  :  ’>; 

read  In (chr); 

if  not  (chr  in  Cg* ,’Y’l)  than 
exi t (program) ; 
ur  i  tain; 

uriteC  ARE  YOU  SURE  YOU  UANT  TO  CONTINUE  ?  :  ’); 

read  In  (chr ) : 

if  not  (chr  in  [’g’.'Y'))  than 
exi t (prograa) ; 
ur i tain; 

uritaC  LAST  CHANCE  !!!!!  CONTINUE  ?  t  *)» 
read In (chr); 

if  not  (chr  in  Cg’.'Y’))  than 
exit (prograa): 

END;  (a  naming  a) 

(a  aain  prograa  a) 

BEGIN 

UARNING; 

REPEAT 

PAGE (OUTPUT) i 
G0T0XY<5.5); 

URITE(’l)  Foraat  Subtaat  Database  Files’): 
G0T0XY(5.7); 

URITEC2)  Foraat  Exaainee  Database  Fites’); 
G0T0XY(S.9); 

URITEC3)  Foraat  Sgstaa  Paraaater  Files’); 
G0T0XY(5,11); 

URITEC4)  Foraat  Infotables’ ) ; 

G0T0XY(S.13); 

URITE(’S)  Quit’); 

GOTOXY(l.l); 

URITECCoaaand  ;  ’); 

COfWANO  GETCHARU’l’.. ’4’),  TRUE.  TRUE,  TRUE); 

CASE  COftlAND  OF 

•1*  «  (a  SUBTESTFORMAT  a); 

•2’  i  EFOROAT; 

•3’  :  STARTUPFORMAT; 

’4’  ;  INFOSETUP; 

•S’  :  ; 

END; 

UNTIL  COrriANO  -  ’S’; 

END.  (a  foraat  files  a) 


This  is  a  verg  dangerous  prograa  so’); 
if  gou  dont  knou  uhat  gou  are  doing,  get*); 
out  nou  uhile  gou  still  can  uith  gourr); 
life.  If  gou  execute  ang  of  the  options’); 
in  this  prograa,  gou  uili  anihilate  all’); 
data  in  certain  files  and  cause  hours  of’); 
hard  uork  to  be  lost.’); 
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atS+a) 

!*  ! 

:*  Textfile  i  HISC/CATKRUNCH. TEXT  Voluee  :  TF1LES  i 

!•  Codefile  t  Voluee  i  : 

!«  i 


DEC.  1.  1982  NPROC 


:« 

«  Thie  prograe  goes  through  all  the  subtests  and  Crunches  the  unused  space 
[•  betueen  text  in  the  ascii  file  and  resets  the  block  and  byte  pointers  for 
[*  each  question. 

la 


la 

la  The  old  files,  directory, data,  and  text  are  not  changed,  in  case  of 
la  prograa  crash  during  krunch.  Instead,  3  new  filas  are  created.  They  arei 

la 

la  1.  Neudir.data 

la  2.  Neudata.data 

la  3.  Neutext.data 

la 

la  These  are  respectively,  the  directory,  data  and  textfiles.  They  are 
la  uritten  to  the  saae  voluaee  the  old  files  reside  on.  To  use  the  new 
la  files,  change  the  filenames  declared  in  each  prograa,  test  to  see  if 
la  any  data  errors  occured  in  transfer,  then  change  the  new  file  naaes  to 
la  the  old  file  naaes  on  the  volumes  and  In  the  prograas,  so  the  next  future 
la  krunch  wilt  see  the  neu  files  as  tha  old  files, 
la 


PROGRAM  TEXTTRANSFERt 
CONST  (a  block  sizad  buffer  for  ascii  a) 
HAX1TEMBUF  -  Slit 
NIL  -  -It 


(a  question  textfile  control  codas  a) 

GOTOFLAG  -  128;  (a  flags  a  gotoxy  a) 

PAGEFLAG  -  129;  (a  flaga  text  continues  on  another  page  a) 

UNUSEOFLAG  -  130;  (a  flags  unused  byte  a) 

END ITEM  ■  131;  (a  flags  end  of  text  for  a  question  a) 


(a  these  files  must  reside  on  disk  !  a) 

OATANAME  -  ’CATDATAt ITEMPOOL.OATA’ i  la  question  data  a) 
TEXTNATE  .  *QTEXT 1 1 TEMTEXT.DATA* ;  la  question  text  a) 

I NOEXNAME  -  ’CATDATAs TEST INDEX. DATA’ ;  (a  test  directory  a) 


(a  slots  available  in  directory  a) 

MAXSUB TESTS  -  20; 

(a  maximum  question  pool  per  test  a) 
MAXITEMPOOL  -  380; 

(a  aaxiaum  U  of  sample  questions  allowed  a) 
MAX SAMPLES  .  5; 


TYPE  DIROATA  -  PACKED  RECORD  (a  directory  for  tests  a) 

UNUSED  t  BOOLEAN;  (a  tails  if  record  occupied  a) 
TESTNAME  t  STRING;  (a  name  of  subtast  a) 

(a  subtest  directory  of  question  id  codes  a) 

I TEMCOOE  :  PACKED  ARRAY 

[0.  .MAXI  TETPOOLI 
OF  INTEGER; 

ENO; 

(a  types  of  answers  to  qusstions  a) 

I TEMRESPONSES  -  (CHARY ALUE, INTVALUE.SEYENCHR) ; 
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ITEHDATA  •  PACKED  RECORD  (e  question  ptrs/data  a) 

(*  flag  thla  as  graphics  item  *) 

GRAPHICS  :  BOOLEAN; 

(*  bounds  for  response  range  «) 

LOU ANSWER, 

H I GHANSUER  :  CHAR; 

(*  block  ft  where  question  text  starts  *) 

I TEMBLOCK, 

(*  bute  ptr  uhere  question  text  etarts  a) 
ITEHPTR, 

(*  8  of  ansuers  for  Multiple  question  screens  *) 
ANSUERCOUNT  t  INTEGER; 

(«  information  parameters  *) 

A.B.C, 

PROPCORRECT, 

POINTBISERIAL. 

VOPT, 

XOPT, 

ouhhyi, 

duhhy2. 

DUrt1Y3  :  REAL; 


(e  answer  to  question  «) 

CASE  ATYPE  t  1 TEHRE SPOUSES  OF 
CHARY ALUE  ;  (ANSUER  :  CHAR); 

INTVALUE  :  (1NTANSUER  :  INTEGER); 

SEVENCHR  «  (CHRANSUER  :  PACKED  ARRAY  (1.. 7]  OF 

CHAR); 

END; 


VAR  ITEHBUF  :  PACKED  ARRAY [0. .511)  OF  0..139; 

CURRINOEXRECNUfl,  (*  record  8  of  file  directory  «) 
CURRBLQCK,  (*  block  8  of  start  of  item  text  •) 
CURRFREEPTR  s  INTEGER;  (*  ptr  to  free  loc  in  block  *) 


DIRECTORY  :  OIROATA; 

FILEDIRECTORY  ;  FILE  OF  OIROATA; 

I  TEH INFO  »  ITEHDATA; 

FILEITEniNFO  :  FILE  OF  ITEHDATA; 

(si  film  of  ascii  codas,  control  #’8  a) 
ITEHTEXT  :  FILE; 


PROCEDURE  STALL; 

BEGIN 

URITEPType  return’); 
read In; 
end; 


(m  returns  the  elot  8  in  subtast  directory  where  question  is,  *) 
(a  nil  if  the  question  code  is  not  in  the  directory  a) 

FUNCTION  SLOTSEARCH (COOE  :  INTEGER)  t  INTEGER; 

VAR  SLOT  «  INTEGER; 

FOUNO  ;  BOOLEAN; 

BEGIN 

SLOT  i-  HAXSAHPLES  ♦  1; 

FOUNO  t-  FALSE; 

REPEAT 

IF  DIRECTORY. I TEHCOOE  ISL0T1  -  COOE  THEN 
FOUNO  :■  TRUE 
ELSE 

SLOT  SLOT  +  1; 

UNTIL  (SLOT  >  HAXI TEMPOOL)  OR  (FOUNO); 

IF  FOUNO  THEN 
SLOTSEARCH  SLOT 
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ELSE 

SLOTSEARCH  i-  NIL; 
END)  (*  slot  search  *) 


(*  returns  record  U  of  question  data  file 
(•  no  collieions.  This  is  a  Mapping 
(*  function  uhich  takes  the  location  a 
(*  question  code  exists  in  a  subtest 
(«  directory,  the  oaxiMUM  questions  per 
(s  subtest  and  the  subtest  record  nuaber 
(«  and  saps  it  to  a  location  in  a  file 
(e  with  data  for  that  question 
FUNCTION  HASH (KEY  i  INTEGER)  ;  INTEGER; 
BEGIN 
HASH  : - 

(CURR I NOEXRECNUM  *  MAXITEMPOOL) 

+  KEY  +  CURR I NOEXRECNUM ; 

END;  («  hash  *) 


(«  reads  a  block  froa  disk  into  the  i tea  ascii  buffer  *) 
PROCEDURE  REAOITEMBLOCK (UHICHBLOCK  t  INTEGER): 

VAR  BLOCKSTRANSFERREO. 

ERRNUH  :  INTEGER; 

BAQIO  ;  BOOLEAN: 

BEGIN 

BAD 10  FALSE; 

RESET (ITEMTEXT, TEXTNAflE) ;  (*  question  text  *) 

BLOCKSTRANSFERREO 

BLOCKREAO ( I TEMTEXT , I TEflBlF , 1 , UH I CHBLOCK ) ; 

BAD 10  3-  ((BLOCKSTRANSFERREO  <  1)  OR  (I ORE SUL T  <>  0)); 
ERRNUTt  i-  I  ORE  SUL  Tj 
CLOSE (I TEMTEXT. LOCK) ; 

IF  BAD 10  THEN 
BEGIN 

URITELN;l*ITELN; 

URITECBIock  read  io  error  U  ’.ERRNUfl); 

STALL; 

EXIT (PROGRAM); 

END; 

END; 


PROCEDURE  TRANSFER; 

CONST  FOIRNATE  -  'CATDATAsNEUOIR.OATA* ; 

FDATANAME  -  ’ CATOATA ; NEUOATA . DATA ’ ; 
FTEXTNATE  -  'QTEXTsNEUTEXT.OATA' ; 


VAR  I. 

J. 

K. 

DATARECNUM, 

FCURRBLOCK,  (*  current  free  block  e) 

FCURRFREEPTR, 

ERRNUM  i  INTEGER;  (*  current  free  byte  in  free  block  *) 


(*  directory  e) 

FOIR  :  DIRDATA; 

FOIRFILE  :  FILE  OF  OIROATA; 

(«  question  data  e) 

FOATA  ;  I TEMOATA; 

FDATAFILE  3  FILE  OF  I TEMOATA; 

(s  question  text  *) 

FTEXT  3  FILE; 


40S 
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(*  block  sized  buffer  fcr  ascii  8  control  codes  e) 
FITEM8UF  :  PACKED  ARRAYI0.  .511]  OF  0..139; 


(s  This  procedure  ur i tes  a  block  of  question  ascii  froe  the  block 
(*  sized  buffer  to  the  disk  in  the  ascii  file. 

PROCEDURE  FUR  I TE I TEMBLOCK (UH I CHBLOCK  :  INTEGER); 

VAR  BLOCKSTRANSFERRED, 

ERRNUn  :  INTEGER; 

BADIO  :  BOOLEAN: 

BEGIN 

BADIO  FALSE: 

RESET  (FTEXT.FTEXTNAME) ; 

BLOCKSTRANSFERRED 

BLOCKUR I TE (F  TEXT . F I TEflBUF . 1 . UH I CHBLOCK ) ; 

BADIO  ((BLOCKSTRANSFERRED  <  1)  OR  (IORESULT  <>  8)); 

ERRNUfl  IORESULT; 

CLOSE (FTEXT.LOCK); 

IF  BAOIO  THEN 
BEGIN 

URI TELN;URITELN; 

URITECBlock  urite  io  error  «  '  .ERRNUfl) ; 

URITELN; 

STALL; 

EXIT (PROGRAM); 

END; 

END;  (*  fur i tei teeb lock  *) 


(*  reads  a  block  froe  disk  into  the  i tee  ascii  buffer  *) 
PROCEDURE  F  RE  AO  I  TEHBLOCK  GUI  CHBLOCK  :  INTEGER); 

VAR  BLOCKSTRANSFERRED , 

ERRNU1  :  INTEGER: 

BADIO  :  BOOLEAN; 

BEGIN 

BAOIO  »-  FALSE; 

RESET (FTEXT.FTEXTNAME) ; 

BLOCKSTRANSFERRED 

BLOCKREAD (F TEX T , F I TEMBUF . 1 . UH] CHBLOCK ) ; 

BADIO  «-  ( (BLOCKSTRANSFERRED  <  1)  OR  (IORESULT  «>  0)); 
ERRNUT1  IORESULT; 

CLOSE (FTEXT.LOCK); 

IF  BAOIO  THEN 
BEGIN 

URITELN-.URITELN; 

URITE I n( ’Block  read  io  error  U  ’.ERRNUM); 

URITELN; 

STALL; 

EXIT (PROGRAM); 

END; 

END; 


(*  eaves  value  of  free  space,  block  8  byte  ptre) 
(*  in  block  0,  by tee  0. .3  of  text  file  *) 

PROCEDURE  FSAVEPTRS; 

VAR  TRIX  ;  RECORD  CASE  INTEGER  OF 

1  :  (TUOBYTES  s  PACKED  ARRAY 

(0..1I  OF  CHAR); 

2  :  (INTVALUE  :  INTEGER); 

END; 

BEGIN 

FREAOITEMBLOCK  (0) ; 

TRIX. INTVALUE  FCURR8L0CK ; 

MOVELEFT (TRIX. TUOBYTES (0) .FI TEMBUF  10) ,2) ; 

TRIX. INTVALUE  FCURRFREEPTR; 

MOVELEFT (TRIX. TUOBYTES  £01  .FI TEMBUF (21,2); 

FURI TEI TEMBLOCK (0); 

END:  (e  fsave  ptrs  *) 


«  « 


.  .  I."  1 


v^; 


1  'I'V  ,1  '.■%  1  ^  -M  ’, 
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% 


(«  Thie  procedure  reads  in  the  question  text  froe  the  ascii  file  *) 
(*  of  the  corvus  and  block  reads  it  onto  the  floppy.  *) 

PROCEDURE  ASCI  I TOOISK (CBLOCK.CPTR  :  INTEGER): 

VAR  CORVUSBLOCK, 

CORVUSPTR, 

CHARCOUNT  :  INTEGER: 

BEGIN 

CORVUSBLOCK  CBLOCK: 

CORVUSPTR  :-  CPTR; 

REAO I TEMBLOCK (CORVUSBLOCK);  (*  get  block  where  text  starts  *) 
FREAD I TEMBLOCK (FCURRBLOCK) i  (*  set  buffer  to  fill  *) 


(*  read  fron  corvus  buffer  into  floppy  buffer,  if  ptrs  reach  end  *) 
{«  of  buffer,  read  in  new  block/write  out  full  buffer  *) 

UHILE  1 TEMBUF (CORVUSPTR]  <>  END ITEM  DO 
BEGIN 

FI TEMBUF (FCURRFREEPTRI  I TEMBUF  (CORVUSPTR! ; 

FCURRFREEPTR  :-  FCURRFREEPTR  +  1: 

CORVUSPTR  CORVUSPTR  ♦  1; 

IF  CORVUSPTR  >  Sll  THEN 
BEGIN 

CORVUSBLOCK  CORVUSBLOCK  +  1; 

CORVUSPTR  0; 

RE AD I TEMBLOCK (CORVUSBLOCK) ; 

EfC; 

IF  FCURRFREEPTR  >  Sll  THEN 
BEGIN 

FUR  I TE I TEMBLOCK (FCURRBLOCK ) : 

FCURRBLOCK  FCURRBLOCK  +  1; 

FCURRFREEPTR  0: 

END: 

END; 

FI TEMBUF  [FCURRFREEPTRI  ENDITEM:  («  eark  end  of  text  *) 

FCURRFREEPTR  FCURRFREEPTR  +  1; 

Fl*I  TE  I  TEMBLOCK  (FCURRBLOCK) : 

IF  FCURRFREEPTR  >  Sll  THEN 
BEGIN 

FCURRBLOCK  FCURRBLOCK  +  1; 

FCURRFREEPTR  i-  0: 

FUR I TE 1 TEMBLOCK (FCURRBLOCK ) : 

EfC; 

END;  (*  ascii  to'  floppy  m) 


BEGIN  (*  transfertoSinch  *) 

FCURRBLOCK  0; 

FCURRFREEPTR  :«  A;  (*  first  four  bytes  reserved  0  -  3  *) 

REURI TE (FTEXT.FTEXTNAME) ; 

ERRNUM  BLOCKURITE (FTEXT.FI TEMBUF, 1,0); 

CLOSE (FTEXT.LOCK) ; 


FOR  K  0  TO  MAXSUBTESTS  00 
BEGIN 

(«  gat  the  subtest  directory  *) 
RESET  (F I LEO I RECTORY , I NOEXNAME ) ; 
SEEK (FILEOIRECTORY.K) ; 

GET (FI  LEO I  RECTORY) ; 

DIRECTORY  :•  F l LEDI RECTORY*; 
CLOSE (F I  LEO I REC  TOR Y , NORMAL ) ; 
FDIR  DIRECTORY; 

CURRINOEXRECNUn  s-  K; 


IF  NOT  (0 (RECTORY. UNUSED)  THEN 
BEGIN 

RESET (FILEITEMINFO.OATANAME) ; 
RESE  T ( FOA  TAF I LE , FOAT ANAME ) ; 
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(e  transfer  data,  text  and  update  text  pointers  *) 

UR1TELN; 

WRITE ('Transferring  ’ .DIRECTORY. TESTNAME) t 

FOR  I  0  TO  MAX  I TEMPOOL  DO 

BEGIN 

IF  DIRECTORy.  ITEnCOOEII)  >-  0  THEN  (*  question  exists  *) 
BEGIN 

URITEC.'); 

DATARECNUM  HASH < I) ; 

SEEK  (F l LE l TEMI NFO , DATARECNUTI) : 

(XT  (FILEI TEMINFO) : 

I  TED I NFO  FILEI TEMINFCT; 

FOATA  I TEMINFO;  (e  transfer  the  data  e) 

FOATA. 1 TEM8LOCK  FCURRBLOCKj  (*  set  new  text  ptrs  *) 
FOATA. ITEMPTR  FCURRFREEPTR; 

SEEK (FDATAFI LE . DATARECNUM) s 
FDATAFILE'*  FOATA; 

PUT(FOATAFILE) ;  (*  urlte  data  to  floppy  ») 

(*  transfer  the  text  *) 

ASCI! TOOISK ( I TEMINFO. I TEfBLOCK, I TEMINFO. I TEMPTR) ; 

END; 

ENO; 

FSAVEPTRS:  (e  save  end  of  file  Barker  •) 

CLOSE (FILEI TEMI NFO. LOCK) j 
CLOSE (FOATAFILE, LOCK); 

.  ENO; 

ENO; 

ENO;  (*  transfer to5 inch  *) 


(*  sain  program  «) 

BEGIN 

TRANSFER; 

END. 
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